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A COMPUTER PROGRAM FOR ANISOTROPIC SHALLOW-SHELL 


FINITE ELEMENTS USING SYMBOLIC INTEGRATION 

C. M, Andersen* and John T. Bowen 
Langley Research Center 

SUMMARY 

A FORTRAN computer program for anisotropic shallow -shell finite elements with 
variable curvature is described. A listing of the program is presented together with 
printed output for a sample case. Computation times and central memory requirements 
are given for several different elements. 

The program is based on a stiffness (displacement) finite-element model in which 
the fundamental unknowns consist of both the displacement and the rotation components of 
the reference surface of the shell. Two triangular and four quadrilateral elements are 
implemented in the program. The triangular elements have 6 or 10 nodes, and the quad- 
rilateral elements have 4 or 8 nodes. Two of the quadrilateral elements have internal 
degrees of freedom associated with displacement modes which vanish along the edges of, 
the elements (bubble modes). The triangular elements and the remaining two quadrilat- 
eral elements do not have bubble modes. 

The output from the program consists of arrays corresponding to the stiffness, the 
geometric stiffness, the consistent mass, and the consistent load matrices for individual 
elements. The integrals required for the generation of these arrays are evaluated by 
using symbolic (or analytic) integration in conjunction with certain group -theoretic tech- 
niques. The analytic expressions for the integrals are exact and were developed using 
the symbolic and algebraic manipulation language MACSYMA. 

INTRODUCTION 

This paper contains a description and listing of SYMINSE (symbolically integrated 
^hell elements), a FORTRAN computer program for computing the characteristic arrays 
(stiffness, geometric stiffness, consistent mass, and consistent load) associated with an- 
isotropic shallow-shell finite elements with variable curvature. The SYMINSE program 
is based on a stiffness (displacement) finite -element model having five fundamental 

*Senior Research Associate in Mathematics and Computer Science, College of 
William and Mary, Williamsburg, Virginia. 




unknowns (dependent variables) and on a form of shallow-shell theory which includes the 
effects of shear deformation, rotary inertia, and bending -extensional coupling. 

Two triangular and four quadrilateral elements are implemented in SYMINSE. The 
two triangular elements are ST6 with 6 nodes and ST 10 with 10 nodes. These elements 
have 30 and 50 degrees of freedom per element, respectively. Two of the four quadrilat- 
eral elements have bubble modes. These are SQ5 and SQ9 with 4 and 8 nodes, respec- 
tively, and 25 and 50 degrees of freedom, respectively. The two remaining elements are 
SQ4 and SQ8 which also have 4 and 8 nodes, respectively, but since they have no bubble 
modes, they have only 20 and 40 degrees of freedom, respectively. 

The SYMINSE program is intended to be used as part of a finite-element system 
whose capabilities would include analysis of laminated composite (and therefore aniso- 
tropic) shells. SYMINSE deals only with individual elements, and other modules in the 
system must be relied upon for such operations as (1) determining the positions of the 
nodes and the connectivities of the elements, (2) determining the shell stiffnesses from 
the thicknesses and material properties of the lamina, (3) assembling the total stiffness 
matrix from the elemental stiffness matrices generated by SYMINSE, (4) solving the 
assembled system of equations, and (5) displaying the solutions. 

Whereas the conventional approach for evaluating the element characteristic arrays 
depends on numerical quadrature, the SYMINSE program relies entirely on symbolic (or 
analytic) integration implemented with the aid of group -theoretic techniques. The sym- 
bolic expressions for the integrals to be numerically evaluated by the SYMINSE program 
were computed using the algebraic and symbolic manipulation language MACSYMA.^ 
SYMINSE itself has been run on the CONTROL DATA 6000, CYBER 70, and CYBER 170 
series computer systems. 


SYMBOLS 

aI]^^ B^*^,C^^ basic integrals 
[K] element stiffness matrix 

Kjj stiffness coefficients of shell element 

[K] geometric stiffness matrix 


^The MACSYMA system is being developed by the Mathlab group at Massachusetts 
Institute of Technology under the support of the Advanced Research Projects Agency of 
the U.S. Department of Defense (work order 2095) through Office of Naval Research Con- 
tract No. N00014-75-C-0661. 


2 




k|j geometric stiffness coefficients of shell element 

[M] consistent mass matrix 

Mjj consistent mass coefficients of shell element 

m, m,m superscript index designating particular representative A-, B-, or C-integrals, 

respectively 

n, n,n superscript indices designating particular group transformations 

consistent load vector 

Pj consistent load coefficients 

R's, S's, T's coefficients associated with A-, B-, and C-integrals, respectively 

'^'s, 5's, 9''s integers associated with representative A-, B-, and C-integrals, 
respectively 

r number of shape functions associated with a finite element 

s,s,t,F functions of nodal coordinates (see eqs. (34) and (39) of ref. 1) 

x^ coordinates of ith corner node 

STATEMENT OF THE PROBLEM AND TECHNIQUES FOR SOLUTION 

The analytic formulation of the shallow -shell theory implemented in SYMINSE and 
the major techniques employed to gain computational speed are described in reference 1. 

In particular, reference 1 describes (1) how the components of the characteristic arrays 
are formed as linear combinations over certain sets of integrals referred to as the A-, 

B-, and C-integrals, (2) the forms of the analytic expressions for these sets of integrals, 
and (3) how group -theoretic techniques reduce the number of symbolic computations to be 
performed in the course of developing a program such as SYMINSE. Reference 1 also 
includes a demonstration of the efficiency of the SYMINSE program by giving a comparison 
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of the number of floating-point arithmetic operations required by SYMINSE with the num- 
ber required by a conventional numerical quadrature approach. 

All the equation munbers in this report refer to equations in reference 1, 

PROGRAM DESCRIPTION 
Major Features and Capabilities 

The element characteristic arrays generated by the SYMINSE program are the stiff- 
ness SS, the geometric stiffness SG, the consistent load SP, and the consistent mass SM, 
The symbols SS, SG, SP, and SM are the FORTRAN names for arrays which correspond to 
the matrices [K], [K], {p}, and [M], respectively, of equation (13) (for details of this 
correspondence, see the subsection "Program Output"). (Recall that all referenced equa- 
tions are given in ref. 1.) 

The six "types" of elements implemented in the SYMINSE program (see table I and 
fig. 2 both of ref. 1) are characterized by different values of the FORTRAN variable NSF, 
which represents the number r of shape functions per element (cf., the description of 
eq. (6)). The user selects the type of element simply by setting NSF equal to 4, 5, 6, 8, 9, 
or 10 in the program which calls SYMINSE. The FORTRAN variable NNE, which repre- 
sents the number of nodes per element, is set by the SYMINSE program equal to NSF - 1 
when there is a bubble mode and equal to NSF otherwise. 

The SYMINSE program, unlike conventional finite-element programs, does not 
employ numerical quadrature for evaluation of any integrals. Instead, exact analytic 
expressions for the integrals are used throughout. Some of the expressions for the inte- 
grals involve logarithmic functions, and for these functions, high -accuracy truncated power 
series expansions are employed. Apart from this, the only inaccuracies in the evaluation 
of integrals are due to roundoff error. 

For quadrilateral elements, different portions of the SYMINSE code are employed 
for evaluating the C -integrals (see ref. 1) depending on whether the element is a parallel- 
ogram (including a rectangle), a trapezoid, or a trapezium (a quadrilateral which has no 
two sides which are parallel). Separate code is used for each of these three cases because 
the parallelogram code (based on eq. (43)) is faster than the trapezoid code (based on 
eqs. (41) and (42)), which in turn is faster than the trapezium code (based on eqs. (37) and 
(38) for NNE = 4 and on eq. (30) for NNE = 8). 

By testing functions of the coordinates of the corner nodes, the SYMINSE program 
automatically determines whether a quadrilateral element is a parallelogram, a trapezoid, 
or a trapezium. The FORTRAN variables RR and SS stand for the quantities s and F, 
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respectively, defined in equation (39). SYMINSE deems the element to be a parallelogram 
(PARA = TRUE) if the absolute values of RR and SS are each less than EPS; otherwise it 
sets PARA equal to FALSE. It deems the element to be a trapezoid (TRAP = TRUE) if the 
absolute value of RR or the absolute value of SS is less than EPS; otherwise the element 
is deemed a trapezium (TRAP = FALSE). The value of EPS has been set equal to lO"^. 

There are five logical variables - SGFLAG, SPFLAG, SMFLAG, CURVE, and 
PRFLAG - set by the calling program which affect the flow through the SYMINSE pro- 
gram. The stiffness SS is computed each time SYMINSE is called, but the arrays SG, SP, 
and SM are computed only if the corresponding flags SGFLAG, SPFLAG, and SMFLAG 
have been set equal to TRUE. The flag CURVE should be set to TRUE if the particular 
shell element has curvature and should be set to FALSE for a flat -plate element. Finally, 
PRFLAG governs whether the characteristic arrays are to be printed. However, the com- 
puted arrays are stored on sequential files on disk whether PRFLAG is TRUE or not. 
Setting one or more of these five flags to FALSE will save computer time but will not 
affect the field-length requirements. 

The loading forces P, PI, P2 and curvature components Ql, Q2, Q12, which are to be 
specified at each node, are inputs to SYMINSE. Internally they are approximated by using 
the same shape functions as the fundamental unknowns. All other inputs such as the thick- 
ness H, the density RHO, the prestress coefficients ENl, EN2j EN12 and the material 
stiffness coefficients are assumed to be constant throughout the element. 

The first time SYMINSE is called, it enters an initialization phase in which coeffi- 
cients and indices for computing integrals are evaluated. The coefficients are the R's, 
S's, and T's of equations (23) to (25), (28), (29), and (45), and the indices are the m's 
and h's of equation (62). The array NRECORD determines for which values of NSF these 
coefficients are to be evaluated. As sets of these coefficients and indices are evaluated, 
they are written out on a random access disk file for subsequent use. 

Overlay structures have been employed to reduce the amount of central memory 
(field length) required. The program has a main overlay, which resides in core at all 
times, 11 primary overlays, and no secondary overlays. The primary overlay which con- 
tains the initializing routines SETUP, SETA, SETB, and SETC is called only once during 
each computer run. Another primary overlay, containing the routine PRINT, is called 
only if printed results are desired. A third, containing the routine SGPM, is called once 
for each element and forms the components of the element characteristic arrays as linear 
combinations of the A-, B-, and C-integrals. 

The SYMINSE program can readily be interfaced with other modules of a finite- 
element system. Unlabeled common is not used, and all but two arrays in labeled common 
can be shared with other program modules. The two arrays are NRECORD with dimen- 
sion 7 in labeled common SPACE and DC with dimension 31 in labeled common STORE. 
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The normal input file TAPES is not used by any of the SYMINSE routines in order to allow 
the calling program to use TAPES without interference from SYMINSE. The read state- 
ments within SYMINSE reference either the disk file TAPEl, which contains a fixed block 
of data not to be changed by the user, or random access records previously written by 
SYMINSE on the temporary disk file TAPE2. The arrays written on the random access 
file TAPE2 correspond to the R's, S's, and T's of equations (23) to (2S), (28), (29), and 
(4S); the indices m, n, m, n, in, and h of equation (62); and a small number of other 
quantities. The characteristic arrays SS, SG, SP, and SM generated by SYMINSE are writ- 
ten out on the disk files TAPE3, TAPE4, TAPES, and TAPE9, respectively. 

A listing of SYMINSE is presented in appendix A. The programing style adopted for 
writing this program was strongly influenced by reference 2. It is hoped that the use of 
ELSE and THEN comment cards as well as the system of indentation adopted will improve 
the readability of the program. 


Program Input 

The input to SYMINSE consists of three blocks of data. The first block contains six 
fixed sets of integer arrays which are read in from TAPEl by the routine SETUP in the 
form of card images. These six sets of data correspond to the six allowed values of NSF 
(viz, 4, 5, 6, 8, 9, and 10) and are given in appendix B. Each set contains arrays called 
KA, LA, QA, KB, LB, QB, KC, LC, and QC except that LA is missing from the third and 
sixth sets. 

The arrays QA, QB, and QC, which correspond to the '^'s, S's, and £Ts of equa- 
tions (53) to (55) and (57) to (59) of reference 1, were generated by MACSYMA programs; 
whereas the arrays KA, LA, KB, LB, KC, and LC, which contain values of the indices m, 
n, m, n, m, and n, were generated by FORTRAN programs. 

The A^j^^ integrals to be evaluated and stored in the array XA may be thought of 
as having i = j = k = £. The four indices subject to this restriction can be replaced by a 
single index given by 

^ i(i+l)(i+2)(i+3) ^ j(j+l)(j+2) ^ k(k+l) ^ ^ j 

24 6 2 

which runs from 1 to IXA = (r+l)(r+2)(r+3)(r+4)/24. The arrays KA and LA contain the 
values of m(Il) = m(i,j,k,£) and n(Il) = n(i,j,k,£). Similarly, the arrays KB and LB con- 
tain the values of m(i,j,k) and n(i,j,k) for i = j, and the arrays KC and LC contain the 
values of m(i,j) and h(i,j) for i = j. 

The second block of data consists of variables defined in the calling program and 
stored by it in the first 100 words of the labeled common SPACE. These variables are 
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not modified by the SYMINSE program and may be changed by the calling program between 
calls to SYMINSE. They are listed in table I in the order in which they appear in the com- 
mon block. Some of these variables do not need to be defined under certain circumstances. 
These variables are 


P, PI, P2 
Ql, Q2, Q12 
RHO, H 

ENl, EN2, EN12 
X(4), Y(4) 


if SPFLAG = FALSE 
if CURVE = FALSE 
if SMFLAG = FALSE 
if SGFLAG = FALSE 
if NSF = 6 or 10 


In addition, only the first NNE components of Ql, Q2, Q12, P, PI, and P2 need to be defined 
even when the curvatures and/or load components are needed. The quantities SPFLAG, 
SMFLAG, SGFLAG, and CURVE are discussed in more detail subsequently. 

The third block of data consists of the vector NRECORD which has dimension 7. 

This vector, like the variables of the second block of data, is initially defined by the calling 
program and is stored in the labeled common SPACE. However, NRECORD is modified 
by the routine SETUP on the first call to SYMINSE and must not be modified by the calling 

program between calls on SYMINSE. If the ith component of NRECORD, as initially 

1 

defined, is nonzero, then from the first block of data the set of integer arrays correspond- 
ing to NSF = i + 3 will be read in and processed by the routine SETUP. For example, 
in a computer run involving only finite elements with NSF = 5, NRECORD may be set to 
(0,1, 0,0, 0,0,0). On the other hand, elements with all six allowed values of NSF may be 
processed during the same computer run by setting NRECORD to (1,1, 1,0, 1,1,1). Since 
NSF - 1 is not allowed, the value of the fourth component of NRECORD is ignored; but to 
simplify programing, one blank card is situated between the third and fourth sets of input 
data. This card is skipped when the fourth component of NRECORD is referenced. 

Program Output 

The output from the SYMINSE program consists primarily of the arrays SS, SG, SP, 
SM, and SMASS. The first four of these are stored in the binary sequential disk files 
TAPE3, TAPE4, TAPES, and TAPE9, respectively, so that the system equations can be 
assembled by some other module of the finite-element system. These four arrays corre- 
spond to the stiffness kJj, the geometric stiffness k|j, the consistent load Pj, and the 
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consistent mass m|j, respectively, of equation (12) of reference 1. The fifth array 
SMASS is constructed only if the routine PRINT is called. It corresponds more directly 
to Mjj than SM does, but it is much larger than SM and contains many zeros. It is 
expected that the full consistent mass matrix will be constructed by another program 
module from the SM arrays stored in TAPES. 

The computed arrays are stored as if they had the following DIMENSION statement 
{were four -dimensional arrays to be legal in FORTRAN): 

DIMENSION SS(5,NSF,5,NSF),SG(NSF,NSF),SP(5,NNE),SM(NSF,NSF),SMASS(5,NSF,5,NSF) 

The explicit relations between the computed arrays and the characteristic matrices of 
equation (12) are 

SS(I,i,J,j) 

for I = J = 3 
otherwise 

for j ^ NNE 
for j = NNE + 1 

I 

for I = J = 1, 2, or 3 
for I = J = 4 or 5 
for 1 J 


The printed output from SYMINSE consists of 

(1) The integration arrays KA, LA, QA, KB, LB, QB, KC, LC, and QC (printed by the 

routine SETUP) 

(2) The required length of the labeled common SPACE as dependent on NSFM 

(printed by the routine SETUP) 


^IJ 


ISG(i,j) 




fSP(J,j) 


SM(i,j) 

Mjj^= <JsM(i,j)*H2/l2. 


- SMASS(I,i,J,j) 
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(3) The arrays SS, SG, SP, SM, and SMASS which have been evaluated (printed by the 
program PRINT only if PRFLAG = TRUE) 

Program Organization 

The computational processes implemented in the SYMINSE program are outlined in 
figure 1(a) for triangular and parallelogram elements and in figure 1(b) for trapezoidal 
and trapezium elements. They differ only in the method of computation of the C -integrals. 

The routines in the SYMINSE program, their field lengths, the files they reference, 
and brief descriptions are listed in table II, and the subroutine linkages of the SYMINSE 
program are given in figure 2. The subroutine ELEMENT and the program interfacing 
SYMINSE with the other modules of the finite-element system are to be contained in the 
main overlay. The large boxes in figure 2 represent main programs of different primary 
overlays. Each of the small boxes below one of these large boxes represents a subroutine 
located in the same overlay as the main program above it. There are several different 
subroutines named XDNDN which appear in table II and figure 2. None of these are alike 
except that they all evaluate C -integrals. There should be no confusion among them since 
each appears in a different overlay. 

As indicated in figure 2, the SYMINSE program is entered by a call to the subroutine 
ELEMENT. The flow chart for ELEMENT, given in figure 3, indicates that ELEMENT 
makes calls on five basic routines, namely, SETUP, INTGRAL, SGPM, STORE, and PRINT. 
It also indicates that the initializing program SETUP is called only once during each com- 
puter run and that the routine PRINT is bypassed if the logical variable PRFLAG has been 
set to FALSE by the calling program. 

The function of the routine SETUP and its subroutines SETA, SETB, and SETC is to 
set up the "integration" arrays used in the evaluation of A-, B-, and C-integrals. The 
inputs to these initializing routines consist of the array NRECORD in common SPACE and 
the six sets of data listed in appendix B, which are read in from TAPEl. The initializing 
routines affect the execution of the rest of the program only through the integration arrays 
they store in binary on the random access disk file TAPE2. These routines also produce 
a printed record of these integration arrays. 

The subroutine INTGRAL manages the evaluation of the A-, B-, and C-integrals. 

Its flow chart is given in figure 4. The only parameters specified by the calling program 
which can affect the flow through INTGRAL are NSF and the coordinates of the corner 
nodes. For a triangular element (NSF = 6 or 10) the flow is independent of the coordinates 
of the corner nodes, but for a quadrilateral element (NSF = 4, 5, 6, or 9) the program 
QUAD sets PARA to TRUE if the element is deemed a parallelogram and to FALSE other- 
wise. If PARA has been set to FALSE, then the program QUAD sets TRAP to TRUE if the 
element is deemed a trapezoid and to FALSE if it is deemed a trapezium. The effects of 
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PARA and TRAP on the program flow are shown in figure 4. Two of the many routines 
called by INTGRAL are TRI and QUAD. These are the routines which read the integration 
arrays stored by the initializing routines. 

The program SGPM manages the evaluation of the characteristic arrays (SS, SG, 

SP, and SM), which are formed from linear combinations of the A-, B-, and C -integrals. 
There are two flags set by the calling program which affect the flow through SGPM, They 
are SPFLAG and SMFLAG. The consistent load SP is evaluated only if SPFLAG is TRUE, 
and the consistent mass SM is evaluated only if SMFLAG is TRUE, Two other flags, 
CURVE and SGFLAG, set by the calling program affect the flow in LINSTF, the subroutine 
called by SGPM to compute the stiffness SS and the geometric stiffness SG. The curvature, 
dependent terms in SS are omitted if CURVE is FALSE, and SG is evaluated only if SGFLAC 
is TRUE. 

The subroutine STORE takes the characteristic arrays which have been computed 
and writes them out as binary sequential files on disk storage. The fifth and last routine 
called by ELEMENT is the program PRINT, which provides a printed record of the char- 
acteristic arrays computed by SGPM. First, PRINT displays the stiffness array SS. It 
then displays SG, SP, and SM if they have been evaluated. Finally, it reconstructs the full 
consistent mass matrix SMASS and displays it. However, in doing so it writes SMASS, 
which has dimension (5*NSF)^, over that portion of memory previously occupied by SS. 

Storage of Data 

The FORTRAN variables employed in the SYMINSE program fall into the following 
categories: (1) the input variables stored in the first 100 words of labeled common 
SPACE, (2) other variables stored in fixed positions in SPACE, (3) dynamically allocated 
arrays in common SPACE, (4) variables stored in fixed positions in labeled common 
TEMP, (5) the array IX in labeled common STORE, and (6) certain DO loop indices and 
the variables defined by DATA statements. 

The FORTRAN variables in category (6) are the only ones which were not placed in 
a labeled common. The lengths of the arrays in category (3) depend on the value of the 
FORTRAN variable NSF (number of shape functions per element). By not assigning these 
arrays to fixed positions in memory, the size of the labeled common SPACE can be con- 
siderably reduced for computer runs in which the larger elements are not to be computed 
(see the subsection "Operating Instructions"). The variables and arrays in categories (1), 
(2), and (3) are listed in tables I, III, and IV, respectively. Each of the variables in cate- 
gories (2) and (3) is referenced by routines in more than one overlay, whereas those in 
category (4) are referenced within one overlay only. A list of the more important vari- 
ables of category (4) is given in table V. The array IX from category (5) contains the 
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indices needed by the mass -storage subroutines. It is important that IX, like the array 
NRECORD, not be modified between calls to the SYMINSE program. 


Use of Computerized Algebraic Manipulation 

The symbolic and algebraic manipulation language MACSYMA (see refs. 3, 4, and 5) 
played a central role in the development of the SYMINSE program. In addition to many 
exploratory calculations, symbolic manipulation was used to compute 

(1) The input arrays of ^'s, S's, and £r’s which were derived from the evaluation 

of the logarithm -free representative integrals 

(2) The FORTRAN expressions for the representative C -integrals over trapezoids 

and trapeziums, found in overlays numbered 6 through llg (see table II) 

(3) The truncated power series expansions for the logarithmic functions evaluated in 

the subroutines BLOG, ELOG, WLOGl, and WLOG2 

Some of the symbolic expressions computed by MACSYMA were converted into 
FORTRAN expressions by commands within the MACSYMA programs. These FORTRAN 
expressions were edited in TECO (a text editing language for the DEC PDP-10 computer) 
to add decimal points and to format continuation lines appropriately. They were then 
punched on cards and incorporated into the SYMINSE program. FORTRAN expressions 
generated in this way can be found in overlays 7 through llg. 

The other symbolic expressions were computed by MACSYMA but then were hand 
coded in FORTRAN. Some of these (for example, the FORTRAN statements in the function 
subroutine XDNDN in overlay 6) were then checked by using symbolic manipulation. This 
was done by giving as input to MACSYMA the sequence of FORTRAN statements needed to 
numerically evaluate (in closed form) one of the integrals. MACSYMA was then used to 
carry out the substitutions indicated in order to form a single large analytic expression 
for the integral in question. This expression was then subtracted from the quantity 
derived by symbolically integrating the corresponding integrand. The FORTRAN expres- 
sions are accurate if this difference evaluates to zero. 

PROGRAM USAGE 
Operating Instructions 

The program which calls the SYMINSE program should have the following statements 
or their equivalent: 
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OVERLAY (MAIN, 0,0) 

PROGRAM MAIN (INPUT, OUTPUT,TAPEl,TAPE2, TAPES, TAPE4,TAPE5=INPUT, 
TAPE6=OUTPUT, TAPES, TAPE9) 


COMMON/TEMP/TEMP(60) 

COMMON/SPACE/SPACE(5261) 

COMMON/STORE/STORE(31) 


CALL ELEMENT 


END 

In addition, the user’s control cards should equivalence the file TAPEl to a file which con- 
tains the card images listed in appendix B. The length of the labeled common SPACE 
depends on the highest values of NSF referenced in the variable NRECORD. The required 
lengths are givenan the following table: 


Highest value 
of NSF 

Length of 
common SPACE 

Highest value 
of NSF 

Length of 
common SPACE 

4 

780 

8 

3157 

5 

1180 

9 

4125 

6 

1686 

10 

5261 


For any practical production run it is expected that no more than two of the three 
characteristic arrays SG, SP, and SM will be calculated. Thus the header card of the 
calling program can be modified to delete reference to the input -output files which will 
not be called upon. 

Some savings of computer resources can often be effected by loading only those pri- 
mary overlays which are needed for a given computer run. The main overlay and primary 
overlays 1 and 123 are always required. The primary overlay ISg is needed for test runs 
in which printed output of the characteristic arrays is desired but should not be needed for 


12 




production runs. The primary overlays required for computing A-, B-, and C-integrals 
for the various elements are given in the following table : 


Element shape 

NSF 

Overlays required 

Triangle 

6 or 10 

2 

Parallelogram 

4, 5, 8, or 9 

3 

Trapezoid 

4 or 5 

3 and 4 


8 or 9 

3 and 5 

Trapezium 

4 or 5 

3 and 6 


8 

3, 7, and lOg 


9 

3, 7, lOg, and llg 


The field lengths required to run the SYMINSE program vary depending on the space 
allotted to labeled common, the files referenced, and the overlays selected. The field 
lengths required for several test cases are given in table VI. 

No library subroutines are referenced by the SYMINSE program. 

Sample Calling Program and Sample Program Output 

A sample program which calls SYMINSE to generate the characteristic arrays for 
14 different shell elements is given in appendix C. Table VI gives the central processing 
unit (CPU) times required for each of these finite elements as well as for a corresponding 
set of plate elements. Each of these plate elements differs from its corresponding shell 
element only in that the parameter CURVE has been set to FALSE. Effects of bending- 
extensional coupling are still included. The timings given do not include the time taken to 
write the computed arrays on either the OUTPUT file or disk storage. The CPU time in 
the SETUP overlay is 1.04 seconds when all six element types are set up. The timing 
routine is referenced by the subroutine ELEMENT, 

Sample output from SYMINSE for finite elements with NSF = 5 and 6 is given in 
appendix D. The appropriate modifications to the calling program are also given in this 
appendix. 


POSSIBLE FURTHER IMPROVEMENTS AND DEVELOPMENTS 

There are several ways in which the SYMINSE program could be modified to improve 
its performance or could be extended to cover additional elements: 

(1) The program can be made more efficient for constant or zero curvatures since 
in these special cases the only A- and B -integrals required have the forms A^j®® and 
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For this purpose, the computed A- and B-integrals should have a different order- 
ing in the arrays XA and XB, and a new flag should be introduced to signal constant 
curvature. 

(2) The routines QUAD81, QUAD82, and QUAD9, which evaluate C -integrals for 
trapezium (nontrapezoidal quadrilateral) elements with NNE = 8, are based on equa- 
tion (30). (Recall that referenced equations are given in ref. 1.) Consequently, roundoff 
errors can be severe when these routines are used for small values of RR or SS. This 
difficulty can be avoided by reformulating the routines so that they are based on equa- 
tions (37) and (38) instead of equation (30). This reformulation has successfully been 
carried out for the routine QUADS. 

(3) The extension of the SYMINSE program to add triangular elements with more 
than 10 nodes and parallelogram and trapezoidal elements with more than 8 nodes is a 
straightforward task. However, for such trapezoidal elements, further "subtractions" on 
the function L of equation (42) may be necessary. Without resorting to numerical quad- 
rature, the addition of trapezium elements with more nodes would be more difficult. 

(4) The previous comment also applies for an extension which would add quadrilat- 
eral elements with additional "bubble modes." In this case, however, the group -theoretic 
techniques described in the present study need a slight generalization which is described 
in reference 6. 

(5) For trapezium elements a hybrid approach which combines numerical quadrature 
with symbolic integration appears to have advantages over a purely numerical quadrature 
or a purely symbolic integration approach. In the hybrid approach the A- and B-integrals 
would be evaluated by symbolic integration and the C -integrals by numerical quadrature. 
This approach would retain the major advantages resulting from the symbolic integration 
of the A- and B-integrals and eliminate the difficulties associated with the symbolic inte- 
gration of the C-integrals. The hybrid approach may be particularly advantageous for 
higher order elements for which the symbolic expressions for the C-integrals become both 
numerous and highly complicated and for which roundoff errors can become severe unless 
several "subtractions" on the logarithmic functions Lj and L2 of equation (33) are per- 
formed. A count of floating-point arithmetic operations suggests that, even for a purely 
numerical quadrature approach, evaluation of A-, B-, and C-integrals followed by forming 
the stiffness as a linear combination of these integrals is faster than the conventional 
approach discussed in the section on program performance of reference 1. This suggests 
that symbolic integration and numerical quadrature can be readily combined in one 
program. 
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CONCLUDING REMARKS 


Triangular and quadrilateral shear -flexible finite elements for shallow anisotropic 
shells with variable curvatures have been implemented in a FORTRAN computer program 
called SYMINSE. A listing is given of this program, together with a sample calling pro- 
gram and some sample output. A stiffness (displacement) formulation is used with the 
fundamental unknowns consisting of both the displacement and the rotation components of 
the reference surface of the shell. The triangular elements implemented have 30 or 50 
degrees of freedom per element, and the quadrilateral elements have 20, 25, 40, and 45 
degrees of freedom per element. 

The SYMINSE program does not use numerical quadrature but instead uses exact 
analytic expressions for all the integrals needed. These expressions are obtained by 
symbolically integrating certain selected representative integrals and using group - 
theoretic techniques to relate the other required integrals to these representative 
integrals. 

Both the theortical ideas used in the SYMINSE program and the performance of the 
program were discussed in a companion paper in which evidence was given to indicate that 
SYMINSE would be faster than any equivalent program based on conventional techniques. 

It is believed that some of the new techniques implemented in SYMINSE will prove valuable 
for other finite -element applications as well. 

Langley Research Center 

National Aeronautics and Space Administration 
Hampton, Va. 23665 
April 12, 1976 
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APPENDIX A 


LISTING OF THE SYMINSE COMPUTER PROGRAM 


SU3i<0UTINE ELt^'E^T 
C 

C THIS SUBROUTINE IS THE TOP-LEVEL ROUTINE OF THE SYMINSE 

C (SYMBOLICALLY INTEGRATED SHELL ELEMENTS) PROGRAM 

C FOR EVALUATION OF THE LINEAR STIFFNESS SS, THE GEOMETRIC 

C STIFFNESS SG, THE CDNSISTEMT LOAD SP AND THE CONSISTENT MASS SM 

C FOR A DGUEL Y-CUPVE D ANISOTROPIC SH AL L 0 G- SH E L L FINIIE ELEMENT. 

C 

C 

C 

C THIS PROGRAM WAS WRITTEN BY 

C CARL M. ANDERSEN 

C SENIOR RESEARCH ASSOCIATE IN MATHEMATICS 

C AND COMPUTER SCIENCE 

C department of MATHEMATICS 

C COLLEGE OF WILLIAM AND MARY 

C WI LL IAMS6UPG> VA. 23135 

C WITH THE assistance OF 

C JOHN T. BOWEN 

C K.A.S.A. LANGLEY RESEARCH CENTER 

C HAMPTON, VA . ‘ ?3'665 

C 
C 

C IHE RESULTS (SS,SG,SP AND SMIARE STORED IN BINARY SEUUENTIAL 

C FILES ON CISC LOGICAL UNITS 3, A, 3, AND 9, RESPECTIVELY. 

C FOR FUTURE ASSEMBLY CF THE SYSTEM EOUATIONS. 


c 

EACH 

SS 

RECORD 

CONTAINS 

25*NSF*NSF 

WORDS 

c 

EACH 

SG 

RECORD 

CONTAINS 

nsf*nsf 

WORDS 

c 

EACH 

SP 

RECORD 

CONTAINS 

5*NNE 

WORDS 

c 

EACH 

SM 

RECORD 

CONTAINS 

NSF *NSF 

WORDS 


C 

C NSF IS THE NUMBER OF SHAPE FUNCTIONS ASSOCIATED WITH THE ELEMENT. 

C FDR A TRIANGULAR ElEMENT USE MAY TAKE THE VALUES 6 OR 10. 

C FUR A QUADRILATERAL ELEMENT NSF MAY TAKE THE VALUES A,5.B OR 9. 

C NNE IS THE NUMBER OF NODES ASSOCIATED WITH THE ELEMENT. 

C NNE*NSF IF NSF«A,t.80R10. 

C NNE»NSF-1 IF NSF.5GP9. 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 


THE MAIN BLOCK OF INPUT COMPRISES THE FIRST ONE HUNDRED WORDS OF 
COMMUN/SPACE /. NONE OF THE WORDS IN THIS BLOCK ARE CHANGED BY 
THE SYMINSE PROGRAM, BUT ANY OF THEM may BE CHANGED, IF DESIRED, 
BY OTHER PROGRAMS BETWEEN CALLS TO ELEMENT. 

THE variables CONTAINED IN THIS BLOCK ARE AS FOLLOWS. 

THE FIRST 21 WORDS ARE THE MATERIAL STIFFNESS PROPERTIES 

C11,C12,C16.C22,C26,C66,F11,F12.F16,F22,F26,F66, 
011,012,016,022, D26, 066, C 55 . C 99 , C 59 . 

THE NEXT 3 WORDS APE THE PRESTRESS COEFFICIENTS £ N 1 , E N 2, E N 1 2 . 
THE NEXT WORD CONTAINS NSF. 

THE NEXT 5 WORDS CONTAIN LOGICAL VARIABLES 

CURVE — IE FALSE, ALL CURVATURE DEPENDENT CONTRIBUTIONS 

TO SS ARE BYPASSED IN THE SUBROUTINE LINSTF. THIS SPEEDS 
UP THE COMPUTATION FDR THE CASE OF ZERO CURVATURE.' 

SGELAG — IF TRUE THEN THE GEOMETRIC STIFFNESS SG IS 
COMPUTED. IF FALSE SG WILL CONTAIN GARBAGE. 

SMFLAG — IF TPUF THEN THF CONSISTENT MASS SM IS COMPUTED. 

IF FALSE THE SUBROUTINE MASS WILL NOT BE CALLED AND 
SM WILL CONTAIN GARBAGE. 

SPFLAG — ■ IF TRUE THEN THE CONSISTENT LOAD SP IS COMPUTED. 

IF FALSE THE SUBROUTINE LOOVEC WILL NOT BE CALLED AND 
SP WILL CONTAIN GARBAGE. 

PPFLAG -- IF TRUE THEN THE PROGRAM OUTPUT (OVERLAY 13. D) IS 
CALLED TO PRINT THE RESULTS SS,SG.SP AND SM. 


159 

160 
161 
162 
163 
169 

165 

166 
167 
16B 

169 

170 

171 

172 

173 
179 

175 

176 

177 
17B 
179 
ISO 
181 
182 
183 
189 

185 

186 
107 
188 

189 

190 

191 

192 
19 3 
199 

195 

196 

197 

198 

199 

200 
201 
202 
203 
209 

205 

206 

207 

208 

209 

210 
211 
212 
213 
219 

215 

216 

217 

218 

219 

220 
221 
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C THE NEXT WORD CONTAINS THE DENSITY, RHO» OF THE MATERIAL. 

C THE NEXT WORD CONTAINS THE THICKNESS.H, OF THE MATERIAL. 

C THE NEXT A WORDS CONTAIN THE X-COORD IN A T E S OF THE CORNER 

C NODES. FUR TRIANGLES, ONLY THE FIRST THREE OF THESE WORDS 

C APE USED. 

C THE NEXT A WORDS CONTAIN THE Y-COOROI N AT E S OF THE CORNER 

C NODES. FOP TRIANGLES, UNLY THE FIRST THREE OF THESE WORDS 

C ARE USED. 

C THE NEXT 30 WORDS ARE RESERVED FOR NODAL VALUES OF THE 

C CURVATURES 01, C2 AND 012. 

C FINALLY THE LAST 30 WORDS ARE RESERVED FDR THE NODAL VALUES 

C OF THE PRESSURES P1,P2 AND P12. 

C 

C IN ADDITION TO THE ABOVE ONE HUNDRED WORDS OF INPUT DATA, THE 

C CALLING PROGRAM MUST ON THE FIRST CALL TO ELEMENT PROVIDE THE 

VECTOR NREC0PD(7). NRECDRD I A SU3SE0UENTLY MODIFIED BY THE 
PROGRAM SETUP. 


THE VARIABLES NN E , I S S , I XC , I X A ARE DEFINED BY THE PROGRAMS 
TRI OR QUAD. 


EACH OF THE VARIABLES (OTHER THAN THE INPUT VARIABLES) STORED IN 
COMMON/SPACE/ IS REFERENCED BY PROGRAMS IN MORE THAN ONE 
OVERLAY OF THE SYMINSE MODULE. BY CONTRAST, THE VARIABLES 
STORED IN CQMMON/TEMP/ ARE REFERENCED BY PROGRAMS WITHIN ONE- 
QVERIAY only. 

C 

C IT IS IMPORTANT TO REMARK THAT THE VARIABLE NRECORO 

C MUST NOT PE MODIFIED BY THE CALLING PROGAM BETWEEN CALLS TO 

C ELEMENT. ALL OTHER WORDS IN COMMON / SP AC E / AND ALL WORDS IN 

C COMMQN/TEMP/ MAY BE FREELY CHANGED BETWEEN CALLS TO ELEMENT. 

C 

C THE variable first IS INITIALLY .TRUE. BUT IS SET TO .FALSE. 

C ON THE FIRST PASS THROUGH ELEMENT. 

C 


C 

logical FIRST, PRFLAG 

CUMMCN/SPACE/SPACE(29),PRFLAG,OTH£RS(l) 

COMMON/TEMP/TEMP (61 ) 

C 

DATA FIRST/. T./ 

C 

C 

TIME « TIMING(DUMMY) 

IF (FIRST) GO TO I 

GO TO 3 

c then 

C . CALL THE PROGRAM CALLED SETUP WHICH READS IN THE REQUIRED 

C ARRAYS FROM TAPEl AND STORES THEM ON DISK FDR FUTURE RECALL 

C BY THE PROGRAMS QUAD AND TRI. 

1 CALL OVERLAY (AHMAIN, 1, 0) 

FIRST • .F. 

TIME • TIMING(OUMMY) 

WRITE(6,2) TIME 

2 FORMAT! ///////♦ THE SETUP T I ME WA S* , F 7 . 3, * SECONDS.*) 

C CONTINUE 

C ' ' 

C . CALL THE SUBROUTINE INTGRAL WHICH EVALUATES THE A-, B- AND 

C C-INTE6RALS AND STORES THEN IN POSITIONS IXC+1 THRU IXA+IA 

C UF COMMON. 

3 CALL INTGRAL 


C 

C . CALL THE PROGRAM SGPM WHICH COMPUTES THE STIFFNESS MATRIX SS, 


C‘ 

the 

GEOMETRIC STIFFNESS 

MATRIX 

SG 

IF 

SGFLAG* . TRUE . , 

c 

THE 

LQaDVECTDP SP IF 

SPFLAG- 

.TRUE . , 


c 

AND 

THE CONSISTENT .MASS 

MATRIX 

SM 

IF 

SMFLAG-.TRUE. 


CALL 0VERLAY(AHMAIN.12B,0,6HRECALL) 
TIME • TIMING(D'UMMY) 


222 

223 

22A 

225 

226 

227 

228 

229 

230 

231 

232 

233 
23A 

235 

236 

237 

238 

239 
2A0 
2A1 
2A2 
2A3 
2AA 
2A5 
2A6 
2A7 
2A8 
2A9 

250 

251 

252 

253 
25A 

255 

256 

257 

258 

259 

260 
261 
252 
263 
26 A 

265 

266 

257 

258 

269 

270 

271 

272 

273 
27A 

275 

276 

277 

278 

279 

280 
281 
232 
283 
28A 

285 

286 
287 
238 

289 

290 
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C 291 

C . SrORt THE RESULTS ON DISK FOR FUTURE ASSEMBLY OF THE SYSTEM 292 

C equations. 293 

CALL STORE 299 

C 295 

IF (PRFLAG) 2<56 

C THEN 297 

c . Call the program output which displays the results. 298 

♦ CALL DVERL A Y ( AHMAI N, 1 3B. 0. 6HREC all ) 299 

C CONTINUE 300 

C 301 

wR1TE(6>9) time 302 

9 FORMAT!///////* THE COMPUTATION TIME FOR THIS ELEMENT WAS* 303 

♦ * F6. 3,* SECONDS .* ) 309 

return 305 

END 306 
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SUBROUTINE INTGRAL 


THIS SUBROUTINE CALLS VARIOUS SUBPROGRAMS TO COMPUTE THE A-, B- 
AND C-INTEGRALS NEEDED IN THE SUBROUTINES L I N S T F , L OD V EC AND 
AND MASS. 

PARA IS SET TO .TRUE. BY THE SUBROUTINE OUAO WHEN THE ELEMENT 

IS DEEMED TO BE A PARALLELOGRAM. 

TRAP IS SET TO .TRUE. BY THE SUBROUTINE QUAD WHEN THE ELEMENT 

IS DEEMED TO BE A TPAPEZDIO. 

THE Variable limit specifies the upper limit to the range of 

C-INTEGRALS TO BE EVALUATED WITHIN A GIVEN OVERLAY CALL. 


LOGICAL PARA, TRAP 

CUMMQN/SPACE/SPACE(2A),NSF,SK1P(75),SKP(7),LIMIT,SKIPP(27),PARA, 
► TRAP,QTHERS(1) 


IF (NSF.EQ.6 .DP. NSF.EO.IC) GO TO 2 

GO TO 3 

THEN TRIANGULAR CASE 

. CALL The program TRI which EVALUATES THE A-, B- AND C-TYPE 
INTEGRALS FOR TRIANGULAR ELEMENTS. 

CALL OV ERLAY(AHMAIN, 2. 0.6H RECALL) 

GO TO 20 

ELSE 

IF (NSF.EO.A .OP. NSF.E0.5 .OP. NSF.EQ.8 .OR. NSF.EQ.9) GO TO A 

GO TO 18 

THEN QUADRILATERAL CASE 

. CALL THE PROGRAM QUAD WHICH EVALUATES THE A-, B- AND C-TYPE 
INTEGRALS FOR PARALLELOGRAM ELEMENTS AND THE A- AND B-TY.PE 
INTEGRALS FOR THE N ON P AR A L L EL OGP A M QUADRILATERAL CASE. 

CALL 0VERLAY(AHMAIN,3,0, 6HP ECALL ) 

IF ( .not. para ) GO TO 5 


then The element is not a parallelogram. 

IF (TRAP) 

THEN THE ELEMENT IS A TRAPEZOID. 

IF ( N S F . E 0 . A ) 

THEN 

LIMIT * 10 

CALL QVERLAY(AHMAIN,A,0) 

ELSE 

IF (NSF.EQ.5) 

THEN 

LIMIT • IS 

CALL 0VERLAY(AH,MAIN,A,0) 

ELSE 

IF (NSF.EQ.8) 

THEN 

LIMIT • 36 

CALL OVEPLAYIAHMAIN, 5,0) 

ELSE NSF-9 
LIMIT • A5 

CALL OVERLAYIAHMAIN, 5,0) 
CONTINUE 


GO TO 5 
GO TO 20 

CO TO 6 
GO TO 13 

GO TO 7 
GO TO 8 


GO TO 20 

GO TO 9 
GO TO 10 


GO TO 20 

GO TO 11 
GO TO 12 


GO TO 20 


GO TO 20 


307 

308 

309 

310 

311 

312 

313 
31A 

315 

316 

317 

318 

319 

320 

321 

322 

323 
32A 

325 

326 

327 

328 

329 

330 

331 

332 

333 
33A 

335 

336 

337 
333 
339 
3A0 
3A1 
3A2 
3A3 
3AA 
3A5 
3A6 
3A7 
3A8 
3A9 

350 

351 

352 

353 
35A 

355 

356 

357 

358 

359 

360 

361 

362 

363 
36 A 

365 

366 

367 

368 

369 

370 

371 

372 

373 
37A 
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c 

ELSE NCN-TRAPE ZCIOAL CASE 




3 75 

13 

IF (NSF.EO.A .OR. NSF.E0.5) 

GO 

TO 

lA 

376 



GO 

TO 

16 

377 

C 

THEN 




3 78 

c 

. LIMIT IS 10 IF NSF.EQ.A BUT 

LIMIT 

IS 

15 IF NSF. EO. 5 

3 79 


LIMIT • 10 




38 0 


IF (NSF.E0.5) 




381 

c 

THEN 




382 


♦ LIMIT • 15 




38 3 

c 

CONTINUE 




38A 


CALL nVERLAY(AHMAIN,6,0) 




385 



GO 

TO 

20 

386 

c • 

CONTINUE 




387 

c 

ELSE NSF«8 DR NSF-9 




388 

16 

CALL OVERLAYIAHMAIN, 7. 0) 




389 


CALL QVE PLAY! AHMAIN. 108.0) 




390 


IF (NSF.E0.9) 

GO 

TO 

17 

391 



GO 

T 0 

20 

392 

C 

THEN 




393 

17 

CALL CVE PLAY ( AHMA IN, IIB. 0) 




39A 



GO 

TO 

20 

395 

c 

CONTINUE 




396 

c 

CONTINUE 




397 

c 

CONTINUE 




398 

c 

CONTINUE 




399 

C • 

ELSE ERROR 




AOO 

18 

WRITE (6,19) NSF 




AOl 

19 

FORMAK* NSF •♦,15,* IS ILLEGAL.*) 




A02 


STOP 




A03 

20 

CONTINUE 




AOA 

C 

. AT THIS POINT ALL INTEGRALS HAVE BEEN COMPUTED. 


905 


RETURN 




906 


END 




907 
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SUBROUTINE STORE <,08 

C <,09 

LOGICAL SGFLAG.SMFLAGfSPFLAG <,10 

COMMGN/TEMP/ I, IL. lU <,11 

CUM MON/ SPACE /SPACE! 2<,),NSF,SKIP,SGFLAG.SMFLAG,SPFLAG,SKP(71), <,12 

♦ SKIPPI !<, ) ,NNE, I SS, I SG, IXC, OTHERS ( 1 ) <,13 

C <,!<, 

C <,15 

C . STORE SS ON UNIT 3. <,16 

IL - ISS + 1 <,17 

WRITE (3) ( SPACE ( I ) , I • IL , I SG) <,18 

C <,19 

IL • ISG + 1 <i20 

IF (SGFLAG) <i21 

C THEN <,22 

C . STORE SG ON UNIT A. A23 

♦ WRITE (A) (SPACE { I ) , I • IL , I XC I A2A 

C CONTINUE A25 

C A26 

IL • IXC ♦ 1 A27 

lu • IXC + 5*NNE A28 

IF (SPFLAG) A29 

C THEN A30 

C . STORE SP ON UNIT B. A31 

♦ WRITE (8) (SPACE ( I ) , I »U , lU) A32 

C CONTINUE A33 

C A3A 

IL » lU + 1 A35 

lU • IL ♦ NSF+NSF A36 

IF (SMFLAG) A37 

C THEN A38 

C . STORE SM ON UNIT 9. A39 

♦ WRITE (9) ( SPACE ( I ) , I *IL, II') AAO 

C CONTINUE AAl 

RETURN AA2 

END AA3 
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OVERL AY( MAIN, 1, 0) 
PROGRAM SETUP 


C 

C THE PURPOSE DF THIS SUBROUTINE IS TO SET UP THE PARAMETERS AND 

ARRAYS REQUIRED BY THE SUBROUTINES WHICH EVALUATE AND STORE 
INTEGRALS. 

ALL READ statements IN THIS PROGRAM REFER TO TAPEl. 

THE WRITE STATEMENTS IN THIS PROGRAM REFER TO THE OUTPUT FILE OR 
C TO SCRATCH DISC (UNIT 2). 

C 

C THE LENGTH OF COMMON MUST BE THE MAXIMUM OF THE VALUES OF *LENGTH+ 

C FOR THE VALUES OF NSF EMPLOYED. 

C NNE IS THE NUMBER OF TRUE NODES PER ELEMENT. 

C lA IS THE NUMBER OF DISTINCT A-INTEGRALS. 

C lA • (NSF+1)*(NSF+2)*(NSF+3)*(NSF+A)/2A 

C 2*IB IS THE NUMBER OF DISTINCT 8-INTEGRALS. 

C IB » NS F* (NSF+ 1) ♦{ NSF +2) /2 

C A*1C IS THE NUMBER OF COMPUTED C-INTEGRALS. 

C IC - NSF+ (NSF+ 1 )/2 

C JA IS THE NUMBER OF REPRESENTATIVE A-INTEGRAIS. 

C ■ JB IS THE NUMBER OF REPRESENTATIVE B-INTEGRALS. 

C ■ JC IS THE NUMBER OF REPRESENTATIVE C-INTEGRALS. 

C THE ARRAY SS IS STORED BEGINNING IN ISS+1. 

C THE ARRAY SG IS STORED BEGINNING IN ISG+1. 

C THE C-INTEGRALS AND LATER SP ARE STORED BEGINNING IN IXC+l. 

C THE ARRAY SM IS STORED BEGINNING IN IXC+5*NNE+1. 

C THE B-INTEGRALS ARE STORED BEGINNING IN IXB+1. 

C THE A-INTEGRALS ARE STORED BEGINNING IN IXA+1. 

C 


C 


LOGICAL TRI 

DIMENSION INDICES(8,7),NCAR0S(7),INDX(12) 

COMMON/SPACE / SPACE (10C),NPEC0RD(7),SKIP,IA,1B,1C,JA,JB,JC,NNE,1SS, 

♦ I SG, I XC, I XB, IXA, QC(1 ) 

COMMON/TEMP/ IL.IU, I2,I3,IA, JL , JU, L E N 6TH, L E VE N, LODO , N, 

♦ NSFM,TRI 
CUMMON/STORE/IX (31 ) 
equivalence (IA,IN0X(D) 


C 


C 

C 


C 

C 

C 


2 

3 


DATA (NCARDS(n,I=l,7)/A2,82,119,l,20A,305,A27/ 
DATA ( INDICESd ),I«1,56)/ 


♦ 

70, 

60, 

10, 

17, 

11, 

3, 

A, 

137, 

A 

126, 

105, 

15, 

3A, 

2A, 

5, 

A, 

137, 

A 

210, 

168, 

21, 

51, 

36, 

6 , 

6 , 

120, 

A 

0, 

0, 

C, 

0, 

0, 

0, 

0, 

0, 

A 

A95, 

360, 

36, 

8A, 

5A, 

8, 

8, 

137, 

A 

715, 

A95, 

A5, 

130, 

83, 

11, 

3, 

137, 

A 

1001, 

660, 

55, 

195, 

121, 

lA, 

10, 

120/ 


NRECORD(A) • 0 

CALL OPENMS(2,IX(l),31,C) 

N • 0 

DO 8 M*l,7 

NSFM • M 3 

IF (NRECDRD(M).EO.O) GO TO 1 

GO TO A 

THEN THE INTEGRATION ARRAYS FOR NSF EQUAL TO NSFM ARE NOT TO 
BE SET L'P. NCARDS(M) IS THE NUMBER OF INPUT CAROS TO BE 
SKIPPED OVER . 
lU • NCARDS(M) 

DO 3 1*1, lU 
RE AD( 1, 2) 

FORMAT! 1 1 ) 

CONTINUE 


GO ID 7 


AAA 
AA5 
AA6 
AA7 
AA8 
AA9 
A50 
A51 
A52 
A53 
A5A 
A55 
A56 
A57 
A58 
AS9 
A60 
A61 
A62 
A63 
A6A 
A65 
A66 
A67 
A68 
A69 
A70 
A71 
A72 
A73 
A7A 
A75 
A76 
A77 
A78 
A 79 
A80 
A81 
A82 
A83 
ABA 
A85 
A86 
A87 
A88 
A89 
A90 
A91 
A92 
A9 3 
A9A 
A95 
A96 
A97 
A98 
A99 

500 

501 

502 

503 
50A 

505 

506 

507 

508 

509 

510 

511 
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C ELSE THE INTEGRATION ARRAYS FOR THIS VALUE OF NSFM ARE TO BE t)12 

C SET UP. 513 

A N*N+1 51A 

C . THE (M)TH POSITION OF NRECORO IS TO BE REPLACED BY AN 515 

C INTEGER WHICH INDICATES WHERE ON UNIT 12) THE INTEGRATION 516 

C ARRAYS FOR NSF*M+3 APE TO BE STORED. SEE SUBROUTINES 517 

C TRl AND QUAD. 518 

NPECORO(M) = N 519 

TPI • NSFM.EO.6 .or. NSFM.E0.10 520 

DO 5 I-l»8 521 

INDMl) • INDICES(I>M) 522 

5 CONTINUE 523 

ISG • ISS + 25*NSFM»NSFM 52A 

IXC • ISG + NSEM»NSFM 525 

1X8 = IXC + A*IC 526 

IXA • IXB ♦ 2+IB 527 

LENGTH « IXA t lA 528 

CALL WR I TMS ( 2 . INDX ( 1 ) , 12» 5*N-9) 529 

WRITE(6>6) NSFM, LENGTH 530 

6 F OR MA T ( ♦IL ENGTH OF C OMM ON / S P AC E / REQUIRED FOR NSF • *»I5. 531 

♦ ♦ I S ♦, I6j * . */ ) 532 

C 533 

C . SET UP THE INTEGRATION ARRAYS FOR THE A- INTEGRALS . 539 

CALL SETA 535 

C 536 

C . SET UP THE INTEGRATION ARRAYS FOR THE B-INTEGRALS . 537 

CALL SETS 538 

C ' 539 

C . SET 'up the integration arrays for the C-INTEGRALS . 590 

CALL SETC 591 

C 592 

7 CONTINUE , 593 

8 CONTINUE ' 599 

WRITE(6,9) 595 

9 FORMAT(lHl) 596 

END 597 
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SUBROUTINE SETA 5A8 

C 550 

C THIS SUBROUTINE SETS UP THE INTEGRATION ARRAYS FOR EVALUATING 551 

C A-INTEGRAIS. 552 

C '553 

C THE NUMBERS KA SELECT THE REPRESENTATIVE INTEGRALS. 55A 

C THE NUMBERS LA SELECT THE GROUP TRANSFORMATIONS. 555 

C 556 

C 558 

- LOGICAL TRI 559 

DIMENSION KA (1 ) »LA ( 1) ,0A( A, 1 ),0A1 ( 1 ),0A2 ( 1 ) fOA3( 1) 560 

CDMMCN/SPACE/SPACE(1C8).IA,SKIP(2)»JA,SKP(7),IXA,00(1) 561 

CGMMDN/TEMP/ IL.IU. I2»I3»IA, JL » JU» L ENGT H. L E VE N, L 0 DD» N, 562 

♦ NSFM» TR I>K, L>C;l > 02 563 

EQUIVALENCE ( K A ( 1 ) , S P A C E ( 1 ) ) » ( L A ( 1 ) , S P AC E ( 1 ) ) , ( OA ( 1 , 1 ) , 00 ( 1 ) ) , 56A 

♦ (OAl { 1 ), SPACE ( 1 )) f (0A2 ( 1 ). SPACE ( 1 )). (QA3 ( 1 ), SPACE ( 1 ) ) 565 

C 566 

C 567 

IL • IXA ♦ 1 568 

lU • IXA + lA 569 

READ(1,1) (KA( I ) , I* IL , lU) 570 

1 F0RMAT(20IA) 571 

WRITE(6,1) (KA( I ) , I-IL, lU) 572 

I F ( TR I ) GO TO 2 573 

GO TO 7 ' 57A 

C THEN TRIANGULAR CASE 575 

2 READ(1»3) ( ( 0A( I, J ) , I«l. 2)> J»l. JA) 576 

3 FORMAT! 10X> 2F10 .0 ) 577 

00 A 1, JA 578 

QA( 1, J ) • OA (1, J )/0A(2, J) 579 

A CONTINUE 530 

WRITE(6»5) ( 0A( 1, J ) , J«l> JA ) 581 

5 FQRMAT(5X,12E10. 3) 582 

00 6 I'lL.IU 583 

K • KA ( I ) 58 A 

OAl ( I ) • 0A( 1,K ) 585 

6 CONTINUE 586 

CALL WR ITMS( 2>0A1( IL I . lU-IL +1. 5*N-3 ) 587 

60 TO 12 '588 

C ELSE QUADRILATERAL CASE 589 

7 JL • IL - lA 590 

JU » lU - lA 591 

REA0(1,8) ( L A ( I ) , I . JL , JU) 592 

8 F0RMAT(80I1) 593 

WRITE(6>1) (LA( I), I*JL» JU) 59A 

READ(1»9) ( {QA( I , J ) , I =1,A) , J*l, JA) 595 

9 FORMAT! 10X,AF10.C) 596 

DO 10 1-1,3 597 

DC 10 J»1,JA 598 

QAII.J) = OA!I,J)/OA(A,J) 599 

C CONTINUE 600 

10 CONTINUE 601 

WRITE!6,5) ! !0A ! I , J ), J-1, JA) , 1-1,3) 602 

DO 11 I1-IL,IU 603 

12 - I 1 - lA 60A 

K • KA ! 11 ) 605 

L - LA!I2) 606 

LOOO - L - !L/2)*2 607 

LEVEN * 1 - LODD 608 

01 = QA!1,K) 609 

02 - 0A!2,K) 610 

OAl ! II ) - OA !3, K ) 611 

0A2II2) - -!-l)*+!L/2)*(L0O0*02+LEVEN*Ql) 612 

0A3!I2-IA) • -!-l )♦♦! !L + 1) /A) ♦{LOOD*01 + LEVEN*Q2) 613 

11 CONTINUE 61A 
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IL • JL - I A 615 

C . STORE QA3. 0A2 AND OAl ON DISC . 616 

CALL WR ITMS( 2, SPACE ( IL )> lU-IL + lt 5+N-3) 617 

12 CONTINUE 618 

RETURN 619 

END 620 
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SUBROUTINE SETS 621 

623 

this subroutine sets up the integration arrays for evaluating 62« 

8-INTEGRALS. 625 

626 

THE NUMBERS KB SELECT THE REPRESENTATIVE INTEGRALS. 627 

the NUMBERS LB SELECT THE GROUP TRANSFORMATIONS. 628 

629 

C 631 

LOGICAL TRI 632 

DIMENSION KB(l),L8(l)»QB(A,l),QBl(l)»OB2(l), 083( 1) 633 

C OMMON /SPACE / SPACE ( 1 09 )»IB,SKIP(2)»JB,SKP(5),IXB, SKIP P> 00(1) 639 

COMMON/TEMP/ ILiIU, 12,13.19, JL , JU, L E NGTH , L E VEN, LODD, N, 635 

* NSFM,TRI,K,L,02,03 636 

EQUIVALENCE (KB(1),SPACE(1)),(LB(1),SPACE(1)),(QB(1,1),QQ(1)), 637 

♦ (OBI (1 ), SPACE (1 )), (0P2(1) .SPACE (1 )), (QB3( 1 ), SPACE ( 1) ) 638 

C 639 

C 690 

IL • IXB + 1 691 

lU « IXB + IB 692 

REAOd.l) (KB(I),I-IL,IU) 693 

1 F0RMAT(20I9) 699 

JL • IL + IB 695 

JU • lU + IB 696 

REaD(1,2) ( LB( I ) , I *JL , JU) 697 

2 FQRMAT(80Il) 698 

WRITE(6,1) (KB( I ) , I«IL» lU) , (LB (I ), I»JL, JU) 699 

I F ( TRI) GO TO 3 650 

GO TO 13 651 

C then triangular case 652 

3 READ(1,9) ((Q6(I,J), I»l,3), J*1,JB) 653 

9 FORMAT! lOX, 3F1C .0 ) 659 

DO 5 I»l,2 655 

DU 5 J»1,J6 656 

QB(I.J) « QB(I, J)/0B(3, J) 657 

C CONTINUE 658 

5 CONTINUE 659 

DO 12 Il-JL.JU 660 

12 • II - IB >661 

K » KB(I2) '662 

L • LB ( 1 1 ) 663 

GO TO (6, 7, 8, 9, 10, 11), L 669 

6 OBKIl) « OB(l.K) 665 

082(12) = CB(2,K) 666 

GO TO 12 667 

7 QBl(Il) • 0B(2,K) 668 

062(12) • -CB(1,K) - QB(2,K) 669' 

GO TO 12 670 

8 QBl(Il) = -OB(l.K) - 08(2, K) 671 

OB2(I2) ■ OE(l.K) 672 

GO TO 12 673 

9 OBI ( II ) « -OB ( 2,K ) 679 

QB2 ( 12 ) > -OB ( 1,K) 675 

GO TO 12 676 

10 QBl(Il) • OB(l.K) ♦ 0B(2,K) 677 

0B2(I2) • -0B(2,K) 678 

GO TO 12 679 

11 OBKIl) » -OB(l.K) 680 

OB2(I2) * OB(l.K) ♦ 0B(2,K) 681 

C . END COMPUTED GO TO . 682 

12 CONTINUE 683 

C . STORE QB2 AND QBl . 689 

CALL WRI TMS( 2, SP ACE ( IL), IU-IL*l,5 + N-2) 685 

GO TO 18 686 

C ELSE QUADRILATERAL CASE 687 

13 READ(1,19) ( (QB( I, J ), I*1,9),J*1, JB) 688 

19 F0RMAT(10X,9F10.0) 689 
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00 15 I*l»3 690 

DO 15 J*1,JB 691 

QBUjJ) • Oe ( I. J )/CB (<., J ) 692 

C CONTINUE 693 

15 CONTINUE 69^t 

WBITE(6»16) ( (OBI I » J ) . J"l. JB) . I*l» 3 » 695 

16 FGRMAT(5X,12E10.3) 696 

00 17 I1»JL,JU 697 

12 • II - IB 698 

K - KB(I2) 699 

L - LB(Il) 700 

LODD • L - (L/2)*2 701 

LtVEN • 1 - LQOO 702 

OBKIl) • (LOOC-LEVEN) *C6( 1»K1 703 

02 • 0B(2,K) 70<* 

03 • 08(3. Kl 705 

QB2(I2) ■ (-1)**(L/2)*(I.OOD*Q2-LEVEN*03) 706 

0B3(I2-IB) • (-1 ) +*( ( L+1) /9) ♦(LOOO*03-LEV£N*U2) 707 

17 CONTINUE 708 

IL • IL - IB 709 

C . STORE 083, 0B2 AND OBI . 710 

CALL WRITES (2, S PACE ( ILI. JU-IL-*!. 5*N-2) 711 

18 CONTINUE 712 

RETURN 713 

END 714 
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715 

716 

717 

718 

719 

720 

721 

722 
72 3 
72 ^ 
■725 

726 

727 

728 

729 

730 

731 

732 

733 
73<^ 





735 

IL • 

I XC 

+ 1 

736 

lU • 

I XC 

IC 

737 

READ(1,1) (KCd ),I'IL, lUI 

738 

F0RMAT(20IA) 

739 

JL • 

IL 

+ IC 

7A0 

JU • 

lU 

♦ IC 

7A1 

REA0(1,2) (LC(I ),I*JL,JU) 

7A2 

FORMAT! 8011) 

7A3 

WRITE! 6, 

1) !KC!I),I*IL,IU),!LCin,I»JL,JU) 

7AA 

REA0!1,3) !!0C!I.J),I*1,5),J*1,JC) 

7A5 

FORMAT! lOX, 5F10.0) 

7A6 

DO A 

1*1 

,A 

7A7 

DO 

A 

J»l, JC 

7A8 


OC!I,J) • CC!I,J)/QC!5,J) 

7A9 

CONTINUE 

750 

CONTINUE 


751 

WRITE 16, 

5) !!0C!I,J).J«1,JCI,I«1,A) 

752 

F0RMAT!5X,12E10.3) 

753 

IF !TRI) 

GO TO 6 

75A 



GO TO 15 

755 

THEN 

TRIANGULAR CASE 

756 

J L 

• 

JL ♦ 2*IC 

757 

JU 

« 

JU + 2*IC 

758 

DO 

lA 

11- JL, JU 

759 


12 

• I 1 - IC 

760 


13 

» 12 - IC 

761 


lA 

• 13 - IC 

762 


K 

• KC ! lA) 

763 


L 

■ LC!I3) 

76A 


01 

• OC !1,K ) 

765 


02 

• 0C!2,K) 

766 


03 

» 0C!3,K) 

767 


OA 

» OC !A,K ) 

768 


GO 

TO !7, 8,9, 10, 11 ,12) ,L 

769 



OCl 1 11 ) • 01 

770 



OC2!I2) * 02 

771 



QC3!I3) = 03 

772 



QCA!IA) • OA 

773 



GO TO 13 

77A 



OCKIl) • OA 

775 



OC2!I2) • -!03+QA) 

776 



0C3! 13 ) • -!02 + 0A ) 

777 



QCAUA) • 01 + 02+C3 + CA 

778 



GO TO 13 

779 



QCini) • Cl+02 + Q3t0A 

780 



QC2U2) • -!Q1 + Q3) 

78 1 



0C3II3) • -!01+02) 

782 



QCAIIA) = 01 

783 



GO TO 13 

78A 


SUBROUTINE SETC 



THIS SUBROUTINE SETS UP THE INTEGRATION ARRAYS FOR EVALUATING 


C-I NTEGRALS. 


THE NUMBERS KC SELECT THE REPRESENTATIVE INTEGRALS. 
THE NUMBERS LC SELECT THE GROUP TRANSFORMATIONS. 



LOGICAL TRI 

DIMENSION KC(l),LC(l).QC(5>l),aCl(l)»QC2(l),0C3(l),QC‘*(l) 
COMMON/SPACE/SPACEaiO),IC,SKIP(2)»JC»SKP(3)>IXC»SKIPP(2),aO(l) 
COMMON/TEMP/ IL.IU. I2>I3.IA, JL » JU, LENGTH, L£VEN» LQOO» N, 
NSFM,TRI,K,L,Q1»02,03,0A 

EQUIVALENCE ( KC ( I ) , SP AC E ( 1 ) ) , < LC ( 1 SP AC E { 1 ) ) , ( OC ( 1 , 1 ) , 00 ( 1 ) ) , 
(OCl (1 ), SPACE (I ) ), (0C2( 1) ,SPACE(in , (0C3(1) ,SPACE( 1) ) , 

(QC 1 1 , SPACE ( 1 n 
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10 


11 


12 


C 

13 

14 
C 


C 

C 

15 


16 


17 


18 


19 


C 

20 

21 

C 

22 


OCl(Il) • 04 785 

QC2(I2) • 03 786 

QC3{I3) « 02 787 

0C4(I4I » 01 788 

GO TO 13 789 

QCKIl) • 014-02+03+04 790 

OC2(I2) • -(02+04) 791 

0C3CI3) • -(03+04) 792 

0C4(I4) • 04 793 

GO TO 13 794 

OCKIl) » 01 795 

QC2(I2) • -(01+02) 796 

OC3(I3 ) ■ -(01 + 03) 797 

0C4(I4) = 01+02+03+04 798 

. tND COMPUTED GO TO . 799 

CONTINUE 800 

CONTINUE 801 

. STORE 0C4, 0C3, OC 2 AND OCl • 802 

CALL WRITMS(2,SPACE(IL). JU-IL+lf5+N-l) 803 

GO TO 22 804 

THEN QUADRILATERAL CASE 805 

. STORE KC AND LC . 806 

CALL WRITMS ( 2jS PAC £( IL )» JU-IL + 1» 5+N-l) 807 

JL • JL + 2+IC 808 

JU • JU + 2+IC 809 

DO 21 II* JL, JU 810 

12 • II - IC 811 

13 • 12 - IC 812 

14 • 13 - IC 813 

K =■ KC(I4I 814 

L • LC(I3) 815 

GO TO (16, 17, 16, 17, 18, 19, 18, 19), L 816 

QCKIl) • 0C(1,K) 817 

OC2(I2) * 0C(2,K) 818 

OC3(I3) • 0C(3,K) 819 

QC4(I4) • 0C(4,K) 820 

GO TO 20 ' 821 

QCKIl) * 0C(4,K) 822 

0C2(I2) • -0C(3,K) 823 

QC3(I3) • -0C(2,K) 824 

QC4(I4) • QC(1,K) 825 

GO TO 20 826 

QCl ( II ) ■ OC ( 1,K ) 827 

QC2 ( 12 ) • -OC (2, K ) 828 

0C3(I3) • -QC(3,K) 829 

QC4(I4) • 0C(4,K) 830 

GO TO 20 831 

QCKIl) • 0C(4,K) 832 

OC2(I2) • QC(3,K) 833 

QC3(I3) • 0C(2,K) 834 

QC4(I4) • 0C(1,K) 835 

. END COMPUTED GO TO . 836 

CONTINUE 837 

CONTINUE 838 

. STORE 0C4, 0C3, OC 2 AND OCl . 839 

CALL WRITMSI2, SPACE! ID, JU-IL + 1,5*N) 840 

CONTINUE 841 

RETURN 842 


END 


843 
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0VERLAY(f^AIN,2,0) 
PROGRAM TRI 


THIS SUBROUTINE NUMERICALLY EVALUATES FOR TRIANGULAR FINITE 

ELEMENTS ALL THREE TYPES OF INTEGRALS AND STORES THEM IN COMMON 
WITH ALIASES XA,XB>XC. 

THE NODES OF THE SIX- AND TEN-NODE TRIANGULAR FINITE ELEMENTS 
ARE NUMBERED AS FOLLOWS. 


EACH TIME THIS PROGRAM IS CALLED IT READS SEVEN RECORDS FROM 
SCRATCH DISC (UNIT 2). THESE RECORDS WERE WRITTEN BY THE 
PROGRAM SETUP. 


DIMENSION XA(l),XB(l),XCm,OAl<l),QBim,QB2(l), 
OC1(1)»OC2(1),OC3(1)»QCA(1),INDX(12) 
C0MM0N/SPACE/SPACE(2A),NSF,SKIP(7).X1,)('2,X3.XA,Y1,Y2.Y3,YA»ZZ(60)> 
NREC0PD(7),SKIPP,IA,IB,IC»JA,JB»JC»NNE.ISS>ISG,IXC.IXB.IXA, 
OTHERS(l) 

CQMMON/TEMP/AREA,AREAINV,CA,CB,CC»CDtCl,C2.IL»IU>I2»I3.IA, 
K,L>NREC» TEMP, X12» X23, X31. Y12, Y23.Y31 
equivalence (XA(l),SPACE(in,(X8(l), space (1)),(XC(1),S pa CE(1)), 
(OAl(l),SPACE(l) ), (0Bl(l),SPACE(in,(0B2(l),SPACE(l) ), 

( Odd ) , SPACE( 1) ), (QC2( U,SPACE ( in , (QC3( 1 ),SPACE (1) ), 

(OCA< 1) , SPACE (1 n , (INOX( 1) , lA) 


AREA ■ ((X1-X2)*(Y1-Y3) - ( X1-X3)* (Y1-Y2) ) /2. 

AREAINV « l./AREA 

X12 • XI - X2 

X23 • X2 - X3 

X31 • X3 - XI 

Y12 • Y1 - Y2 

Y23 • Y2 - Y3 

Y31 • Y3 - Y1 

NREC • 5*NRECORD(NSF-3) - A 
IF (NREC.LT.O) 

THEN ERROR TERMINATION 
STOP 23A 
CONTINUE 

CALL READMS ( 2, INDX (1 ) , 12,NREC ) 

IL • IXA + 1 
lU » IXA + lA 

CALL PEAOMS(2,QAl(IL),IU-IL+l,NREC+l) 

DO 2 I-IL,IU 

XA( I ) • OAl ( I ) *AREA 
CONTINUE 

. EVALUATION OF XA IS NOW COMPLETE. 


IL • IXB + 1 

lU = IXB + 2*IB 

. READ IN QB2 AND OBI . 

CALL READMS(2,SPACE(IL),IU-IL+1,NREC*2I 
lU • IXB + IB 


BAA 

BAS 

8A6 

8A7 

8A8 

SAD 

850 

851 

852 

853 
85A 

855 

856 

857 

858 

859 

860 
861 
862 
863 
86A 

865 

866 

867 

868 

869 

870 

871 

872 

873 
87A 

875 

876 

877 

878 

879 

880 
881 
882 
883 
88A 
885 
836 

887 

888 

889 

890 

891 

892 

893 
89A 

895 

896 

897 

898 

899 

900 

901 

902 

903 
90A 

905 

906 

907 

908 

909 

910 
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DO 3 I1»1L> lU 911 

12*11+18 912 

C4* 081(12) 913 

CB • 082(11) 919 

XB(Il) • CB+Y23 - CA+Y31 915 

XB(I2) • CA*X31 - CB+X23 916 

3 CONTINUE 917 

C . evaluation of XB is now complete. 918 

C 919 

IL • IXC + 1 920 

lU • IXC + ^♦IC 921 

C . READ IN OCA. 0C3. 0C2 AND ’OCl . 922 

CALL READMS ( 2. SPAC E( IL ), lU-IL +1. NREC+3) 923 

lU • IXC + IC 929 

DO A I1«IL> lU 925 

12 * II + IC 926 

13 • 12 + IC 927 

IA*I3+IC 928 

CA*0C1(IA) 929 

CB • OC2(I3) 930 

CC • OC3(I2) 931 

CD * OCA(Il) 932 

Cl • CB+Y23 - CA+Y31 933 

C2 • CD+Y23 - CC+Y31 93A 

XC(Il) • (C2 + Y23 - C1+Y3D+AREAINV 935 

XC(I2) - (C1+X31 - C 2*X23) +AREA INV 936 

Cl • CB*X23 - CA+X31 937 

C2 • CD+X23 - CC*X31 938 

XC(I3) • (C1+Y31 - C2+Y23)+AREAINV 939 

XC(IA) • (C2*X23 - C 1*X31) *AR£A INV 9A0 

A CONTINUE 9A1 

C . EVALUATION OF XC IS NOW COMPLETE. 9A2 

END 9A3 
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0VERLAY(MAIN,3»0) 
PROGRAM QUAD 


FOR PARALLELOGRAM FINITE ELEMENTS THIS PROGRAM NUMERICALLY EVALU- 
ATES ALL 3 TYPES OF INTEGRALS AND STORES THEM IN COMMON/SPACE/ 
WITH aliases XA,XB»XC. IT THEN SETS PARA TO .TRUE. 

FOR QUADRILATERAL ELEMENTS WHICH ARE NOT PARALLELOGRAMS ONLY XA 
AND XB ARE COMPUTED. PARA IS SET TO .FALSE.. TRAP IS SET 
TO .TRUE. OR .FALSE. ACCORDING AS THE ELEMENT IS OR IS NOT A 
TRAPEZOID. AND LOGARITHM TERMS ARE EVALUATED. 

THE NODES FOR THE FOUR-. FIVE-, EIGHT-, AND NINE-NODE QUADRILATERAL 
FINITE ELEMENTS ARE LABELED AS' FOLLOWS 


5 8 9 6. 

1 2 15 2 

THE SHAPE FUNCTION ASSOCIATED WITH THE BUBBLE MODE IS 


N(KSE.ETA) 


2 2 
(1-KSI )*(1-ETA ) 


EACH TIME THIS PROGRAM IS CALLED IT READS RECORDS FROM SCRATCH 
DISC (UNIT 2). THESE RECORDS WERE WRITTEN BY THE PROGRAM 
CALLED SETUP. 


logical para, trap. RRR . SSS 

DIMENSION XAa).Xfl(l).XC(l).KC{l).LC(l). 

* QAia),QA2(l).QA3ai,Q6m).QB2(l).QB3(l). 

♦ QC1(1).QC2< 1).QC3(1 ).QCA(1),INDX{12) 

COMMON/ SPACE/SPACE (29 ) . NS F , DUM ( 7 ) . X ( 9 ) . Y ( 9 ) . DUMM Y ( 60 ) . 

♦ NREC0RD(7),SKIP,IA,I B.IC.JA. JB, JC.NNE.ISS. ISG. IXC, IXB, IXA, 

* X1.X2.X3.Y1.Y2.Y3.Z1.Z2. Z3.ALG1.ALG2.ALG3.ULG1.ULG2.ULG3. 

♦ PARA.TRAP, OTHERS ( 1 ) 

COMMON/TEMP/CA, CB,CC.C0,C1.C2. IL.IOA.1U.I2.I3.I9.K.L. 

* NREC.TEMP,Z1INV,R,S.RR.SS.RRR,SSS.RD,SD,R2.S2.RR2.SS2 
EQUIVALENCE (XA(1),SPACE(1)),(XB(1).SPACE(1)),(XC(1).SPACE(1)). 


(KC (l).SPACE(l) ). (LC(I).SPACE(D ). 

(QAl(ll,SPACE(in,(OA2(l),SPACE{in,(QA3(l).SPACE(l)). 

(QBK 1 ), SPACE ( 1 ) ), (0B2(1 ) .SPACE! 1) ) , (OB3(l ), SPACE ( 1) ) , 
(QC1(1),SPACE(1)),(QC2(1>.SPACE(1)).(QC3(1).SPACE(1I), 
(QC9(1).SPACE(1)).(IN0X(1),IA),(DLG.ALG1),(RS2.ALG2),(CLG,ALG3) 


999 

995 

996 

997 

998 

999 

950 

951 

952 

953 
959 

955 

956 

957 

958 

959 

960 

961 

962 
.963 

969 

965 

966 

967 

968 

969 

970 

971 

972 

973 
979 

975 

976 

977 

978 

979 

980 

981 

982 

983 
989 

985 

986 

987 

988 

989 

990 

991 



9 

(VLG1.ALG1).(VLG2,ALG2),(VLG3.ALG3) 

992 




993 

DATA 

EPS/1. E-9/ 

999 




995 




996 

XI 

m 

( X( 1) +X ( 3) -X ( 2 )-X (9 ) ) /9. 

997 

X2 

m 

( X(2 ) +X (3)-X (9 )-X ( 1) ) /9. 

998 

X3 

a 

(X(3) + X(9)-X( 1)-X(2) )/9. 

999 

Y1 

a 

( Y ( 1) +Y ( 3)-Y( 2)-Y (9 ) )/9. 

1000 

Y2 

a 

( Y(2 ) +Y(3)-Y(9 )-Y (1 ) )/9. 

1001 

Y3 

a 

(Y(3)+Y(9)-Y(l)-Y(2))/9. 

1002 

. Z 

1 

IS ONE-FOURTH THE AREA OF THE QUADRILATERAL ELEMENT. 

1003 

Z1 

a 

X2*Y3 - X39Y2 

1009 

Z2 

a 

X3*Y1 - X1*Y3 

1005 

Z3 

8 

X1*Y2 - X2*Y1 

1006 

Z1 INV • 1 . /Z1 

1007 

R = 


Z2/Z1 

1008 

S • 


Z3/Z1 

1009 

R2 

a 

R»R 

1010 

S2 

3 

S*S 

1011 
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RO • l./(l.-R2) 1012 

SO • l./(l.-S2) 1013 

RR « R+SD 101« 

SS • S*RD 1015 

RRR • 4BS(RR).LT.EPS 1016 

SSS * ABS(SS).LT.EPS 1017 

para • RRR. AND. SSS 1018 

TRAP • RRR. OR. SSS 1019 

NREC ■ 5*NRECQRD(NSF-3) - A 1020 

IF (NREC.LT.O) 1021 

..THEN ERROR TERMINATION 1022 

♦ STOP 123 1023 

CONTINUE 1029 

CALL R£A0MS(2.IN0X(1).12.NREC1 1025 

IL • IXA + 1 - 2*IA 1026 

lU - IXA + lA 1027 

. READ IN 0A3, 0A2 AND OAl . 1028 

CALL READMS(2,SPACE(IL ).IU-IL + 1.NREC*1) 1029 

IL » IXA <■ 1 1030 

IF (PARA) GO TO 1 1031 

GO TO 3 1032 

THEN PARALLELOGRAM CASE 1033 

DO 2 I-IL»IU 1039 

XA( I) - QAl (I )*21 1035 

CONTINUE 1036 

GO TO 5 1037 

ELSE NQNPARALLELOGRAM case 1038 

DO 9 I 1-IL. lU 1039 

12 • II - lA 1090 

XA(Il) - QAKIDAZI ♦ OA2(I2)*Z2 + QA3( I2-IA)*Z3 1091 

CONTINUE 1092 

CONTINUE 1093 

. EVALUATION OF XA IS NOW COMPLETE. 1099 

1096 

IL • IXe 1 - 18 1097 

lU • 1X8 ♦ 2*IB 1098 

. READ IN Q83* 0B2 AND 081 . 1099 

Call READMS(2»SPACE(IL )» IU-IL*-l.NREC<-2) 1050 

IL - 1X8 ♦ 1 1051 

lU • 1X8 ♦ 18 1052 

IF (PARA) GO TO 6 1053 

GO TO 8 1059 

Then parallelogram case io55 

DO 7 Il-IL, lU 1056 

CB • 082(11) 1057 

CC • 083(11-18) 1058 

XB( ID - CBAY2 + CC + Y3 1059 

XB(I1+IB) « -CB*X2 - CC*X3 1060 

CONTINUE 1061 

GOTOlO 1062 

else NONPARALLELOGRAM CASE 1063 

DO 9 Il-IL.IU 1069 

12 • II + IB 1065 

CA = OBK 12) 1066 

CB • 0B2(I1) 1067 

CC • 0B3(I1-IB) 1068 

XB(Il) « CA*Y1 + C8AY2 + CC*Y3 1059 

XB(I2) • -CAAXl - CB*X2 - CC*X3 1070 

CONTINUE 1071 

continue 1072 

. EVALUATION OF XB IS NOW COMPLETE. 1073 

1075 

IF (PARA) GO TO 11 1076 

GO TO 13 1077 

THEN PARALLELOGRAM CASE 1078 

IL • IXC ♦ 1 1079 

lU • IXC + 9»IC 1080 
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c 


12 

C 

C 

c 

13 


C 


C 

1 ^ 


c 

15 


C 

16 


C 

17 


C 

Iri 


C 

19 


20 


. READ IN OCA, 0C3, 0C2 AND OCl . 1081 

CALL PE ADMS ( 2, S PAC E ( IL ), IU-IL+1,NR£C *A ) 1082 

lU • IXC + IC 1083 

0D12I1-IL,IU 108 A 

12 • II + 1C 1085 

13 » 12 + IC 1086 

lA • 13 + IC 1087 

CA - OCKIA) 1088 

CB * QC2(I3) 1089 

CC ■ QC3tI2) 1090 

CD • OCA(Il) 1091 

Cl * CBAY3 + CD^Y2 1092 

C2 • CA*Y3 ♦ CC+Y2 1093 

XC(Il) • -{C1+Y2+C2*Y3I*Z1INV 109A 

XC(I21 • (C 1*X2 + C2*X3) ♦Zl INV 1095 

Cl • CB*X3 + CD»X2 1096 

C2 ■ CA*X3 + CC+X2 1097 

XC(I3) • (CltY2+C2*Y31*ZlINV 1098 

XC(IA) • -(C1+X2+C2*X3)*Z1INV 1099 

CONTINUE 1100 

. EVALUATION OF XC IS NQk COMPLETE. 1101 

GO TO 22 1102 

ELSE NQNPARALLE LQGRAH CASE IlOA 

IL • IXC ♦ 1 1105 

lU • IXC + 2+IC 1106 

. READ IN KC AND LC . 1107 

CALL REAOMSI 2, SPAC E ( IL ), IU-IL+l,NREC+3) 1108 

IF <SSS) GO TO lA 1109 

GO TO 15 1110 

THEN FIRST TRAPEZOIDAL CASE 1111 

OLG • ELOG(R) 1112 

RS2 « R*R 1113 

CLG • 2./3. ♦ RS2ADLG lllA 

60 TO 21 1115 

ELSE 1116 

IF ( RRR) 60 TO 16 1117 

60 TO 17 1118 

THEN SECOND TRAPEZOIDAL CASE 1119 

DLG « ELQG(S) 1120 

RS2 • S*S 1121 

CLG « 2./3. + RS2*0LG 1122 

GO TO 21 1123 

ELSE TRAPEZIUM CASE 112A 

IF (NNE.EO.A) GO TO 18 1125 

GO TO 19 1126 

THEN 1127 

RR2 . RR*RR 1128 

SS2 • SS*SS 1129 

VLGl = WL0G1(R,S) 1130 

VLG2 • WL0G2(R,S) 1131 

VLG3 • WL0G2(S,RI 1132 

ULGl = -1A./3. > 2.A(R2*S2) + RR2*SS2»VLG1 1133 

ULG2 • 2./3. *■ 2.*R2 ♦ SS2 + VLG2 113A 

ULG3 • 2./3. + 2.*S2 * RR2*VLG3 1135 

. ALGl * RR*SS*(-2. + PR2*SS2*UL61 ) 1136 

. ALG2 • SS*(2. + SS2*ULG2) 1137 

. ALG3 • RR+(2. + RR2*ULG3) 1138 

VLGl • VLGl* (RD*SD)A*5 1139 

VLG2 • VLG2*RD**5 llAO 

VLG3 • VLG3*S0**5 llAl 

ULGl » ULGl* (RD*S0)**3 11^2 

ULG2 • ULG2*RD**3 1IA3 

ULG3 • ULG3*SD**3 llAA 

GO TO 20 11A5 

ELSE NNE EQUALS 8 11A6 

ALGl • BL0G(Z1,Z2,Z3) 11A7 

ALG2 » BLOG (Z2,Z3,Z1) 11A8 

ALG3 • BL0G(Z3,Z1,Z2) 11A9 

CONTINUE 1150 
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21 CONTINUE 1151 

C . EVALUATION OF XC IS DEFERRED TO ANOTHER OVERLAY. 1152 

22 CONTINUE 1153 

C ...ONLY EXIT. 115<t 

END 1155 


FUNCTION BLOG(C,A,B) 


1 + X 

THIS SUBROUTINE CONFUTES X AND THEN BLOG » LOG! »/2. 

1-X 

FOR SMALL X (X ,L£. 0.1) THE FOLLOWING EXPANSION IS USED IN ORDER 
TO GIVE GREATER ACCURACY 


3 5 7 9 11 13 15 17 

XXXXX X X X 

C BLOG » X + — ♦ — + — ♦ . ♦ ♦ ♦ 

C 3 5 7 9 11 13 15 17 

C 

C NOTE THAT BLOG(C»A,B) IS SYMMETRIC UNDER INTERCHANGE OF A AND B. 

C 

C 

C0MM0N/TEMP/X,X2,N. OTHERS (1) 

C 

C 


X » 2. *A*B/ ( A*A + B*B-C*C ) 

IF (ABS(X) ,LT, 0.1) GO TO 1 

GO TO 3 

C THEN 

1 N • 8 

X2 • X*X 

BLOG • 1. /(2.AN + 1. ) 

DO 2 I«1,N 

2 BLOG • 1. / ( 2 . ♦ (N-n ♦•I. ) ♦ X2*BL0G 

C CONTINUE 

BLOG • X*BL0G 

GO TO A 

C ELSE 

3 BLOG • ALOG( ( 1 . +X) / ( 1 .-X ) ) /2. 

A CONTINUE 

RETURN 

END 


1156 

1157 

1158 

1159 

1160 
1161 
1162 
1163 
116A 

1165 

1166 

1167 

1168 

1169 

1170 

1171 

1172 

1173 
117A 

1175 

1176 

1177 

1178 

1179 

1180 
1191 
1182 
1183 
118A 

1185 

1186 

1187 

1188 

1189 

1190 

1191 

1192 

1193 
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function ELOG(R) 


1+R 235 

THIS SUBROUTINE COMPUTES ELQG • (LOG( ) - 2*R - -*R )/R . 

1-R 3 

FOR SMALL R (R .LE. 0.1) A TAYLOR SERIES EXPANSION IS USED FOR 
GREATER ACCURACY. 


2 2*R 

ELOG • - + 

5 7 


A 6 8 10 12 lA 

2*R 2*R 2*R 2*R 2*R 2*R 

9 11 13 15 17 19 


16 


2*R 

+ . 

21 

THE FUNCTION BLOG IS RELATED TO ELOG BY 

ItR 23 5 

BLOG(Oil.R) • 6LnG(0,R»l) • LOG( ) • 2*R ♦ -*R ♦ ELOG(R)*R . 

1-R 3 


C0HM0N/TEMP/R2»N,Y 


R2 • R*R 

IF (ABS(R) .LT. 0.25) 


GO TO 1 
GO TO 3 


C 

1 


2 


C 


THEN 

N ■ 8 

ELOG • 2./(2.*N+5.) 

00 2 I-1,N 

ELOG • 2. /(2.*(N-I )+5. ) + R2*EL0G 
CONTINUE 

GO TO A 


C ELSE 

3 ELOG ■= ( ALOG < ( 1 . +R ) / ( l.-R ) )-2. *R* ( 1. +R2/3. ) ) / ( R^R2*R2) 

A CONTINUE 
RETURN 
END 


119A 

1195 

1196 

1197 

1198 

1199 

1200 
1201 
1202 
1203 
120A 

1205 

1206 

1207 

1208 

1209 

1210 
1211 
1212 
1213 
121A 

1215 

1216 

1217 

1218 

1219 

1220 
1221 
1222 
1223 
122A 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 

1233 
123A 

1235 

1236 

1237 
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FUNCTION WL0G1(R1»S1) 1238 

C 12<>0 

C THIS SUBROUTINE EVALUATES 12A1 

C 12A2 

C 2 12A3 

C 1 1 - (S+R) lA 2 2 3 i2A‘t 

C -*L0G( ) ♦ 2*TT ♦ ( 2*(R ♦$ ))*TT ) 12^5 

2 23 12A6 

1 - (S-R) 12A7 

WLDG1(R,S) • 12A8 

5 12‘t9 

TT 1250 

R*S 1251 

WHERE TT * . 1252 

2 2 1253 

(1-S l»(l-R ) 125A 

1255 

TAYLOR SERIES EXPANSIONS ARE USED WHEN R OR S I S SMALL. 1256 

1257 

C 1259 

COMMDN/TEMP/ALOG1.CO,C1^ C2jC3,CA,R,RR,R2.S»SS,SS2. S2»T, TT 1260 

C 1261 

C 1262 

IF (ABStSl) .LE. ABS(Rl)) GO TO 1 1263 

GO TO 2 1269 

C THEN 1265 

1 R • R1 1266 

S ■ SI 1267 

GO TO 3 1268 

C ELSE 1269 

2 R « SI 1270 

S « R1 1271 

C CONTINUE (R IS GREATER THAN OR EQUAL TO S IN MAGNITUDE) 1272 

3 R2 • R*R 1273 

SS • S/(l.-R2) 1279 

SS2»SS*SS 1275 

IF (SS2 .LT. 0.01) GO TO 9 1276 

GO TO 5 1277 

C THEN 1278 

9 CO ■ -96. ♦ P2*(90.-10.*R2) 1279 

Cl • 56. ♦ R2*(-935.+R2*(997.+R2*(-217.+35.*R2) ) ) 1280 

C2 • -126.+R2*(-1391,tR2*(-6628 .*R2*ni826.<-R2*(-7939 . 1281 

♦ +R2*(2163.-252.*R2) ) ) ) I 1282 

C3 ■ R2*(-30096.*R2*(-156200.+R2*(132751.+R2A(91305. 1283 

♦ +R2*( -83226. +R2* ( 38396. + R2* (-8085. +693. *R2 )))))) ) 1289 

C9 ■ R2*(-973616.+R2*(-9953592.+R2'M-982033.+R2*( 5808786. 1285 

♦ +R2*(-3902951+R2* (651508. +R2A(39897.+R2*(-30030. 1286 

♦ +3003. *R2 ))))))) ) 1287 

WLQGl • 2.*(C0*0.2+SS2*(Cl/7.+SS2*(C2/63.+SS2*(C3/693. 1288 

+ +SS2+C9/9009. ) ) ) ) 1289 

C EXIT 1290 

RETURN 1291 

C ELSE 1292 

5 ALOGl • 0. 5*AL0G ( ( 1 .-(R + S ) ♦♦2 ) /( 1 .-(R-S )»*2 ) ) 1293 

S2 • S+S 1299 

RR = R/(l.-S2) 1295 

TT ■ RR+SS 1296 

WLOGl - (AL0G1+2.+TT+(19./3.-2.*(R2+S2) )*rT*+3)/TT*+5 1297 

C EXIT 1298 

RETURN 1299 

END 1300 
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FUNCTION WL0G2(P,S) 


THIS SUBROUTINE EVALUATES 

2 2 

1 (1+S) - R 2*R 

WLQG2(R,S) • (-*L0G{ ) r- 

2 2 2 2 

( 1-S ) - P ( 1-S ) 


2 1 3 

2*(R ♦-)AR 2 5 

3 (1-S ) 

)«. 

2 3 5 

(1-S ) R 


TAYLOR StRIES EXPANSIONS ARE USED WHEN R OR S IS SMALL. 


COM MON/TEMP /ALQ62» CO, C1>C2»C3»CA,C5,C6»RR.RR2»R2»SS>SS2>S2. THIRD 


R2 • R*R 

SS • S / ( 1. -R2 I 

SS2 • SS*SS 

IF (SS2 .LT. 0.01) GO TO 1 

GO TO 2 

THEN 

CO * l.+R2*(10.+5.*R2) 

Cl • 1. +R2* ( 21.+R2* ( 35.+7. *R2)) 

C2 • l.+R2+(36.+R2*(126.+R2*(8A.+<).*R2) ) ) 

CA • 1. +R2* (78. +R2* (715.+R2*( 1716. AR2* ( 1287. +R2* (286. +13 .+R2) ) ) 
K ) ) 

WL0G2 • 2.*(C0AO.2+SS2*(Cl/7.+SS2*(C2/9.+SS2*(C3/ll.+SS2*C^/13. 
X ) ) ) > 

....EXIT 

RETURN 

ELSE 

S2 * S+S 

RR • R/( 1.-S2) 

RR2 • RRARR 

I F ( RR2 . LT. 0.01 ) GO TO 3 

GO TO A 


C THEN 

3 THIRD • 1./3. 

Cl • 6. - A.AS2 

C2 « -2. + S2+(28.+S2 + (-32.+S2*10. ) ) 

C3 • A. + S2*(6O.+S2+(A0.+S2*(-17A.+S2*(120.-25.*S2) ) n*THIRO 
CA • -2. + S2*(222.+S2*(10.+S2*(-22A.+S2*(52.+S2A(88.+S2* 

♦ (-56.+S2A10. ))))) )*THIRD 

C5 « O.A + S2A(222.+S2*(856.+S2»(-1198.+S2+(AAA.+S2»(-30.+S2* 

♦ ( 1A.-2.AS2)) ) ) ) )*THIRD 

C6 • S2*(3.-S2)*(12.+S2A(9.+S2*(-6.+S2) ) ) 

♦ ♦(8.+S2+(5A.+S2*(-36.+S2*6.)))*THIRD 

C . ELOG(S) • (AL0G((l+S)/(l-S))-2»S-2/3*S*+3)/S**5 . 

WL0G2 • EL0G(S)*(1.-R2)**5 ♦ RR2 ♦ (C 1 + RR 2 ♦ ( C 2+ RR 2+ ( C 3 +R R2 ♦ ( C A 

♦ +RR2*(C5+RR2*C6 ) ) ) ) ) 

C . THIS EXPANSION IS ACCURATE FOR S*0 AS WELL AS FOR R«0 . 

C EXIT 

RETURN 

C ELSE (RR AND SS ARE BOTH GREATER THAN 0.1) 

A AL0G2 • 0.5AALQG( ( ( l.+S)*(l.+S )-R2 )/ ( (l.-S )*( l.-S )-R2) ) 

WL0G2 • (AL0G2 - 2 . ♦ S S* ( 1 . + ( 1 . / 3 . +R2 ) ♦ S S 2 ) ) / S S* S S2* S S 2 
C EXIT 

RETURN 

END 


1301 

1302 

1303 
130A 

1305 

1306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 
131A 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 
132A 

1325 

1326 

1327 

1328 

1329 

1330 

1331 

1332 

1333 
133A 

1335 

1336 

1337 

1338 

1339 
13A0 
13A1 
13A2 
13A3 
13AA 
13A5 
13A6 
13A7 
13A8 
13A9 

1350 

1351 

1352 

1353 
135A 

1355 

1356 

1357 

1358 

1359 

1360 

1361 

1362 
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0VERLAY(MAIN,4,0) 1363 

PROGRAM TRAPS 136A 

C 1366 

C THIS PROGRAM EVALUATES C-INTEGRALS FOR TRAPEZOIDAL ELEMENTS 1367 

C WITH NNE • A. 1368 

C 1369 

C THE DO LOOPS ENDING AT STATEMENTS NUMBERED 3 AND A CARRY OUT 1370 

C GROUP transformations. 1371 

C 1372 

C 137A 

DIMENSION LC(1)<KC(1) 1375 

C OMMON /SPACE/ XC( 107). LIMIT, SKIP! 2) »IC»SKP(6)»IXC»SKIPP( 2 )> 1376 

♦ XX1,XX2.XX3,YY1,YY2, YY3,ZZ1,ZZ2.ZZ3.0LG,RS2.CLG,OTHERS( 1) 1377 

CUM MON/TEMP/12, 13, lA.K.L, XI, X2,X3,Y1,Y2,Y3,Z1.R,S. 1378 

♦ IL, IU,LL,KI,XJ,TEMP 1379 

equivalence (KC(1),XC(1)),(LC(1),XC(D) 1380 

C 1381 

C 1382 

XI ■ XXI 1383 

X2 • XX2 138A 

X3 « XX3 1385 

Y1 • YYl 1386 

Y2 • YY2 1387 

Y3 - YY3 1388 

Z1 • ZZl 1389 

R • ZZ2/ZZ1 1390 

S =■ ZZ3/ZZ1 1391 

IL • IXC + 1 1392 

lU • IXC + LIMIT 1393 

LL » 0 139A 

DO A 1*1,2 1395 

DO 3 J*1,A 1396 

LL » LL + 1 1397 

KI • 0 1398 

IF {ABSIR ) . LT . A6S (S ) ) 1399 

C THEN jSECONO TYPE OF TRAPEZOID lAOO 

♦ K I * 5 lAOl 

C CONTINUE 1902 

DO 2 i;i»IL,IU 1A03 

I2> II + IC lAOA 

13 '= 12 ♦ IC 1A05 

lA • 13 + IC 1A06 

K • KC ( II ) + KI 1A07 

L » LC(I2) 1A08 

C IF (L.EO.LL) 1A09 

IF(L.NE.LL) GO TO 1 lAlO 

C THEN 1911 

XC(Il) • -X0N0N(Y1,Y2,Y3,Y1,Y2,Y3) 1912 

XC(I2) • X0NDN{X1,X2,X3,Y1,Y2,Y3) 1913 

XC(I3) • XDN0N(Y1,Y2,Y3,X1,X2,X3) 1919 

XC(I9) ■ -XDNDN(X1,X2,X3,X1,X2,X3) 1915 

1 CONTINUE 1916 

2 CONTINUE 1917 

C . TRANSFORMATION OF TYPE ONE. 1918 

XI • -XI 1919 

XJ • X2 1920 

X2 » -X3 1921 

X3 • XJ 1922 

Y1 • -Y1 1923 

XJ • Y2 1929 

Y2 * -Y3 1925 

Y3 * XJ 1926 

XJ - R 1927 

R • S 1928 

S • -XJ 1929 

3 CONTINUE 1930 
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. TRANSFORMATION OF TYPE TWO. 1A31 

X3 ■ -X3 XA32 

Y3 • -Y3 1433 

S * -S 1434 

CONTINUE 1435 

END 1436 
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FUNCTION X0N0NtXl,X2,X3»Yl, Y2,Y3) 1<»37 

l<i39 

THIS SUBROUTINE IS CALLED BY THE PROGRAM TRAPS TO EVALUATE lAAO 

C-INTEGRALS. 1<,A1 

1AA2 

RS2 IS THE LARGER OF THE TWO QUANTITIES R*R AND S*S. 1A43 

lAAA 

C 1AA6 

C 1AA7 

C0MM0N/SPACE/SKIP(129),DL0G.RS2.CL06.0THERStl) 1AA8 

COMMON/ TEMP /I2> I3>IA,K,L.XY(6),Z1»R*S» 1AA9 

♦ IL»IU>LL»KI,XJ,TEMP,XY11#XY22»XY33>XY12»XY31»X23»Y12.Y23» 1^50 

♦ Y31> X1X2. X3X1,Y 1Y2,Y2Y3» Y3Y1 1A51 

C 1952 

C 1953 

GO TO (l>2j3.9,5.11.12,13,19.15)tK 1959 

C . . 1>1 . 1955 

1 X23 = X2 - X3 1956 

Y23 • Y2 - Y3 1957 

X3Xl • X3 + XI 1958 

Y3Y1 « Y3 + Y1 1959 

TEMP ■ (X1+X2)*(Y1+Y2) + 3.*X23*Y23 1960 

XDNDN • -(2. ♦TEMP ♦ C L OG ♦ ( 3. ♦ X 3 XI ♦ Y3 Yl+3 . ♦ R* ( X 3X !♦ Y23 + X2 3* Y 3 Y 1 ) 1961 

♦ +RS2+TEMP ))/ (29. *ZX) 1962 

RETURN 1963 

C . 2»1 . 1969 

2 X23 • X2 - X3 1965 

Y31 - Y3 - Y1 1966 

Y2Y3 >= Y2' + Y3 1967 

X3X1 • X3 + XI 1968 

TEMP « ( X1*X2 )♦ (Y1+Y2) - 3.*X23*Y2Y3 1969 

XONDN = <2.*TEMP + C L OG* ( 3 . ♦ X3 X 1 ♦ Y3 1 ♦ 3 . ♦ P* ( X 2 3^ Y 3 1 -X 3X 1 ♦ Y2 Y3 ) 1970 

♦ +RS2*TEMP))/(29.*Z1) 1971 

RETURN 1972 

C . 3»1 . 1973 

3 X23 • X2 - X3 1979 

Y23 • Y2 - Y3 1975 

Y31 • Y3 - Y1 1976 

X3Xl « X3| + XI 1977 

TEMP * (X1+X2J* (Y1-Y2) ♦ 3.*X23*Y23 1978 

XONDN • (2. ♦TEMP ♦ C L OG ♦ ( -3 . ♦ X 3 X 1 ♦ Y 3 1 + 3 . *R ♦ ( X 3X 1 ♦ Y2 3 -X 2 3 + Y 3 1 ) 1979 

♦ +RS2+TEMP ) ) / (29.+Z1 ) 1980 

RETURN 1981 

C . 5>1 • 1982 

9 X23 = X2 - X3 1983 

X1X2 • XI + X2 1989 

X3Xl • X3 + XI 1985 

TEMPI • -X2-3*Y1 + X1X2 + Y3 1986 

TEMP • 2. ♦( X3X1+Y2+X1X2*Y3 ) - R ♦ ( X3 /!♦ Yl-2 . ♦ X2 3* Y2 ) + RS2*TEMP1 1987 

XDNDN • -(2.*TEMP + 3 . *0L GG* ( 3 . *R *X 3X 1 ♦ Y1 ♦ R S2 ♦ ( T E MP-3 . ♦ TE MP 1 ) ) ) 1988 

♦ / ( 9 .♦ Z 1 ) 1989 

RETURN 1^,90 

C . 5>5 . 1991 

5 XY12 • X1+Y2 + X2+Y1 1992 

XYll • Xl+Yl 1993 

XY22 " X2^Y2 1999 

XY33 • X3*Y3 1995 

TEMPI • -3. ♦XYll - 5. ♦XYll 1996 

TEMP » XY11-8.^XY22-5.^XY33 ♦ 2.*R*XY12 ♦ PS2^TEMP1 1997 

XONDN • 8, + (2.*TEMP ♦ 3 . ♦ Dl OG * ( - 1 5 . ♦ X Y1 1-5 . ♦ X Y 3 3 - 10.^R*XY12 1998 

♦ +RS2^(1EMP-3. ♦TEMPI) n /(95.^Z1) 1999 

RETURN 1500 

C . 1/1 . 1501 

11 X23 = X2 - X3 1502 

Y23 • Y2 - Y3 1503 

X1X2 • XI + X2 1509 

Y1Y2 • Y1 + Y2 1505 

TEMP • (X3+X1)+(Y3+Y1) + 3.*X?3*Y23 1506 
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XDNDN • -(2.+TEMP + C L CG* ( 3 . *X 1 X2+Y1 Y2-3 . ♦ S* ( X23 ♦ Y 1 Y2+ X 1 X 2* Y2 3 ) 1507 

♦ +RS2 + TEMP ) )/ (2^. +Z1 ) 1508 

RETURN 1509 

C . 2,1 . 1510 

12 Y31 « Y3 - Y1 1511 

X1X2 • XI ♦ X2 1512 

Y1Y2 • Y1 + Y2 1513 

X3X1 « X3 + XI 1514 

TEMP • X3X1+Y31 - 3.*(X2-X3)+( Y2+Y3) 1515 

XDNDN = (2.*TEMP + C LOG ♦ ( 3 . ♦ XI X2» Y1 Y2 + 3 . *S ♦ ( X IX 2+ Y31 +X 3 X 1 ♦ Y1 Y2 ) 1516 

♦ +RS2+TEMP ) ) / ( 24. +Z1 ) 1517 

RETURN 1518 

C . 3,1 . 1519 

13 Y12 « Y1 - Y2 1520 

Y31 « Y3 - Y1 1521 

X1X2 . XI + X2 1522 

X3X1 « X3 + XI 1523 

TEMP = -X3X1 + Y31 + 3. ♦( X2-X3) ♦< Y2-Y3 ) 1524 

XDNDN - (2.*TEMP + CL 0G+ ( 3. ♦XlX2*Y12+3 (X1X2*Y31+X3X1»Y1 2) 1525 

♦ +RS2*TEMP)|/ (24.*Z1) 1526 

RETURN 1527 

C . 5,1 . 1528 

14 X23 • X2 - X3 1529 

X1X2 • XI + X2 1530 

X3X1 • X3 XI 1531 

TEMPI = X23»Y1 X3X1*Y2 1532 

TEMP « 2.*(X1X2*Y3 + X3X1*Y2) - S ♦ ( XI X2* Y1 +2 . ♦ X 23 ♦ Y 3 ) + RS2*TEMP1 1533 

XDNDN • -(2.+TEMP + 3 . ♦ DL OG* f 3 . *S *X 1 X 2* Y 1 +R S2 ♦ ( T E MP-3 . ♦ TE MP 1 ) ) ) 1534 

♦ /(9.+Z1) 1535 

RETURN 1536 

C . 5,5 . 1537 

15 XY31 • X1+Y3 ♦ X3+Y1 1538 

XYll • Xl+Yl 1539 

XY22 « X2»Y2 1540 

XY33 • X3*Y3 1541 

TEMPI • -3.*XY11 - 5.*XY22 1542 

TEMP » XYll-5.*XY22-8. *XY33 ♦ 2.*S*XY31 ♦ RS2*TEMP1 1543 

XDNDN • 8.*(2.*TEHP + 3. *01 CG * { -1 5. ♦ X Y1 1-5 . ♦ X Y2 2 - 10.*S*XY31 1544 

♦ +RS2*( TEMP-3. *TEMP1 )))/ (45. *Z1 ) 1545 

RETURN 1546 

END 1547 
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0VERLAY(MaIN, 5»0) liA8 

PROGRAM TRAPq IS'**? 

C 1551 

C THIS PROGRAM EVALUATES C-INTEGRALS FOR TRAPEZOIDAL ELEMENTS 1552 

C WITH NNE • 8. 1553 

C 155<» 

C THE DO LOOPS ENDING AT STATEMENTS NUMBERED 3 AND <i CARRY OUT 1555 

C GROUP TRANSFORMATIONS. 1556 

C 1557 

C 1559 

DIMENSION LCm.KC(l) 1560 

COMMON/ SP ACE /XC ( 107) , LIMIT. SKIP(2)»IC,SKP(6),1XC,SKIPP(2), 1561 

♦ XXl,XX2,XX3.YYl.YY2,YY3.ZZl.ZZ2»ZZ3.0LG.RS2.CLG.0THERSm 1562 

C0MM0N/TEMP/I2.I3.IA,K>L.X1,X2»X3.Y1,Y2.Y3.Z1»R.S. 1563 

♦ IL. lU.LL.KI, XJ.TEMP 1569 

EQUIVALENCE <KC ( 1) . XC ( 1 ) ) . ( LC (1 ). XC (1 n 1565 

C 1566 

C -j- 1567 

Xi' XXI 1568 

X2 » XX2 1569 

X3 • XX3 1570 

Y1 • YYl 1571 

Y2 « YY2 1572 

Y3 • YY3 1573 

Z1 • ZZl 1579 

R » ZZ2/ZZ1 1575 

S • ZZ3/ZZ1 1576 

IL • IXC + 1 1577 

lU * IXC + LIMIT 1578 

LL • 0 1579 

DO 9 I«l,2 1580 

DO 3 J»1.9 1581 

LL • LL t 1 1582 

KI • 0 1583 

IF (ABS(R).LT.ABS(Sn 1589 

C THEN SECOND TYPE OF TRAPEZOID 1585 

♦ KI • 11 1586 

C CONTINUE 1587 

DO 2 Il'll.IU 1588 

12 = II + IC 1589 

13 « 12 + IC 1590 

19 • 13 + IC 1591 

K • KC ( II ) + K I 1592 

L • LC ( 12) 1593 

C IF (L.EO.LL) 1599 

IF (L .NE .LL ) GO TO 1 1595 

C THEN 1596 

XC(Il) = -XDNONI Y1.Y2.Y3.Y1.Y2.Y3) 1597 

XC(I2) • X0N0N(X1,X2. X3. Y1.Y2.Y3 ) 1598 

XC(I3) • XDNDNI Yl, Y2> Y3» X1.X2.X3 ) 1599 

XC<I9) • -XDN0N(X1.X2.X3.X1.X2.X3) 1600 

1 CONTINUE 1601 

2 CONTINUE 1602 

C . TRANSFORMATION OF TYPE ONE. 1603 

XI . -XI 1609 

XJ « X2 1605 

X2 • -X3 1606 

X3 • XJ 1607 

Yl . -Yl 1608 

XJ . Y2 1609 

Y2 - -Y3 1610 

Y3 « XJ 1611 

XJ . R 1612 

R • S 1613 

S » -XJ 1619 

3 CONTINUE 1615 
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. TRANSFORMATION OF TYPE TWO. 1616 

X3 - -X3 1617 

* -Y3 1618 

S • -S 1619 

CONTINUE 1620 

END 1621 
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FUNCTION X0NDN(X1,X2,X3,Y1,Y2,Y3) 1622 

162« 

THIS SUBROUTINE IS CALLED BY THE PROGRAM TRAP9 TO EVALUATE 1625 

C-INTEGRALS. 1626 

1627 

RS2 IS THE LARGER OF THE TWO QUANTITIES R* R ANO S*S. 1628 

1629 

C 1631 

COMMON/SP ACE/SKI P( 129) , DLOG , R S 2. C LOG , OTHE R S ( 1 ) 1632 

C0MM0N/TEMP/I2» I3>IA,K,L.XY(6)»Z1,R,S» 1633 

♦ IL, IU» LLjKI, XJ» TEMP, TEMPI, XY ll,XY22. XY33» XY12> XY23»XY31, 163A 

♦ YX21,YX32, YX13 1635 

C 1636 

C 1637 

XYll • X1*Y1 1638 

XY22 « X2*Y2 1639 

XY33 • X3*Y3 1690 

XY12 • X1*Y2 V X2*Y1 1691 

XY23 « X2*Y3 + X3*Y2 1692 

XY31 • X3*Y1 + X1+Y3 1693 

YX21 • X1*Y2 - X2*Y1 1699 

YX32 » X2*Y3 - X3*Y2 1695 

YX13 * X3*Y1 - X1AY3 1696 

GO TO (101,102,103,109,105,106,107,108,109,110,111, 1697 

♦ 201,202,203, 209, 205, 206,207,208,209, 210, 211 ), K 1698 

C . 1,1 . 1699 

101 TEMPI » -12.*XY11-8.*XY22-20.*XY33-6.*XY12+10.*XY23 1650 

TEMP « XY11-109.aXY22-95.»XY33-13.*XY12+85.*XY23+5.*XY31 1651 

♦ ■t-RY(12.*XYll+90. ♦(XY22 + XY33)+23.*XY12-35.*XY23-10.*XY31 ) 16 52 

♦ +RS2YTEMP1 1653 

XDNDN » (2.9TEMP + 3 . *DLOG* t -65 .♦XY 11-15 . *XY 33-30 . ^XYBl 1659 

♦ +R*(-20.*XYll-t-30.*XY33-70.*XY12-30.*XY23t35.*XY31 ) 1655 

♦ +RS2*( TEMP-3. *TEMP1) ))/( 360. *21 ) 1656 

RETURN l(i57 

C . 2,1 . 1658 

102 TEMPI • -12.*XY11+2.axY22-20.*XY33-6.*XY12+10.*YX32 1659 

TEMP • XY11-39.*XY22-65.*XY33-23.*XY12+25.*YX13+15.*YX32 1660 

♦ +R* ( 12.AXYll+90.AXY33+23.*XY12-10.*YX13-25 .AYX32 ) 1661 

♦ +RS2*TEMP1 , 1662 

XDNDN • (2.PTEMP + 3.*0LQG*(-55.*XY11+15.*XY33-30.*YX13 1663 

♦ +R*(-20.*XY11-30.*XY33-50.*XY12+15.*YX13+30.*YX32) 1669 

♦ ,RS2* ( temp- 3. ATEMPl )))/( 360.AZ1) 1665 

RETURN 1666 

C . 3,1 . 1667 

103 TEMPI ■ -12.*XY11-2.*XY22-20.+XY33+6.*YX21+10.*XY23 1668 

TEMP • 7.+XY11-96.*XY22-55.*XY33*35.*XY23-H5.aYX13+3.*YX21 1669 

♦ ♦R+(17.aXY12-10.*XY31-15.*YX32) + RS2+TEMP1 1670 

XDNDN • (2.*TEMP ♦ 3.9DLaG*(-55.9XYll+15.*XY33-30.*YX13 1671 

♦ +R*(-50.+XY12+25.+XY31+30.aYX32) 1672 

9 +RS2+( TEMP-3. ATFMPl )))/( 360. *Z 1) 1673 

RETURN 1679 

C . 5,1 . 1675 

109 TEMPI • 6.*XY11-XY22+10.*XY33+0.5*XY12-2.5*YX21-5.*X2*Y3 1676 

TEMP • 12.*XY11-3.*XY22+90.*XY33*16.5*XY12-12.5AYX21-10.AXY23 1677 

♦ -15.*YX32-5.*XY31-10.*YX13 1678 

♦ +RA(-11.*XY11+1C.aXY22-20.*XY33-6.5*XY12+7.5*YX21+5.*XY23 1679 

♦ +10. *YX32 + 5. *X3AY1 ) + RS2ATEMP1 1680 

XDNDN • (2. + TEMP + 3 . *01 OG* ( R ♦ ( 20 . *X Y 1 1 + 2 . 5*X Y3 1 + 7 . 5* Y XI 3 ) 1681 

♦ ,RS2* ( TEMP-3. ATEMPl ))) /(90.AZI ) 1682 

RETURN 1683 

C . 5,3 . 1689 

105 TEMPI • 6.*XY11+XY22+10.9XY33-2.5AXY12+0.5*YX21-5.*X2»Y3 1685 

TEMP .9.*XY11+3.*XY22+20.*XY33+7.5AXY12-3.5ayX21-5.A(XY23+XY31) 1686 

♦ +RA (-5.*XYll+10.*XY22-3. 5+XY12+2.5A YX21-5. AXY23+5. *X3AY1 ) 1687 

♦ +RS2*TEMP1 1688 

XDNDN • (2.ATEMP + 3 . ♦ DL OG ♦ ( R* ( 20 . ♦ X Yl 1-2 . 5» X Y3 1 - 7 . 5* Y X 1 3 ) 1689 

♦ ,RS2* I TEMP-3 . + TEMP1 ) ) ) / (90. *Z1 ) 1690 

RETURN 1691 
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C . 5,5 . 1692 

106 TEMPI • -6.*XYll-'-.*XY22-10.*XY33 + 2. + XY12 1693 

TEMP » -32.*XY11-12.+XY22-90.*XY33+6.*XY12 1699 

♦ +R+( 16.*XYll+20.*XY33-6.+XY12) ♦ RS2+TEMP1 1695 

XONDN • (2.*TEMP + 3.+DLDG+RS2*(TEMP+18.*XYll+12.*XY22+30.*XY33 1696 

♦ -6. + XY12) )/(95.»Zl) 1697 

RETURN 169d 

C . 6,5 . 1699 

107 TEMPI • XY31-X2+Y3 1700 

TEMP • 2.*XYll-3.+XY12-YX21-2.*XY23+3.*XY31+YX13 1701 

♦ +R+(-2.*XY22+2.*(Xl+X3) ♦Y2-1.5*XY31+0.5*YX13) + RS2+TEMP1 1702 

XONDN • (2.*TEMP + 3 . *01 06* ( R -M -9 . * X Y 1 1 + 0 . 5 *X Y 3 1 - 1 . 5 ♦ Y X 1 3 ) 1703 

♦ +RS 2* (TEMP-3. +TE MPl I ) 1 /(9.»Z1 ) 1709 

RETURN 1705 

C . 7,5 . 1706 

108 TEMPI • -6.+XYll+9.*XY22-10.*XY33-2.*YX21 1707 

TEMP • -9.*XY11+12.+XY22-20.*XY33-6.*YX21 +6.*R+XY12 +RS2*TEMP1 1708 

XONDN • (2.*TEMP + 3. ♦0L0G + RS2*(TEMP-3. ♦TEMPI) 1/(95. ♦Zl) 1709 

RETURN 1710 

C . 9,1 . 1711 

109 TEMPI • 6. + XY11 + 10 . + XY33 + X2*( 3. ♦Y1-5.^Y3 ) 1712 

TEMP • -2.^XY11+20.*(XY22+XY33)+3.^XY12-YX21-10.+XY23-5.*YX13 1713 

♦ ♦R*(-3.*XYll-2.*XY22-10.*XY33-7.^XY12+3.+YX21+10.*X2*Y3 1719 

♦ t5.+X3*Yl) + RS2+TEMP1 1715 

XONDN • (2. ♦TEMP ♦ 3.^DLOG+(30.*XYll+5.+XY31+10.*YX13 1716 

♦ ♦R^(5.^XY11+10.^XY33+25.^XY12-5.*YX21-10.^YX32-15.^X3^Y1) 1717 

♦ +RS2^ ( TEMP-3. ♦TEMPI )))/ (95. ♦Zl) 1718 

RETURN 1719 

C . 9,5 . 1720 

110 TEMPI • -12. ♦XY11-20.^XY33+9.^X2»Y1 1721 

TEMP - -16.^XYll-90. ♦XY33-16.^XY12-8.+YX21 1722 

♦ +R^ ( !&.♦ XYll-16. ♦XY22 + 20.*XY33 + 8.^X1 + Y2 ) ♦ RS2^TEMP1 1723 

XONDN . (2. ♦TEMP ♦ 3,^DL0G*(R*(-90.^XY11-20.*XY33) 1729 

♦ +RS2^(TEMP-3. ♦TEMPI) ) )/(95.^Zl) 1725 

RETURN 1726 

C . 9,9 . 1727 

111 TEMPI • -3.^XY11-5.^XY33 1728 

TEMP • XY11-8.^XY22-5.^XY33 + 2.^R^XY12 + RS2+TEMP1 1729 

XONDN «8.^(2.*TEMP + 3 . ♦OLOG^ ( -1 5 . ♦X Y 1 1-5 . ♦ X Y 33 -10.+R+XY12 1730 

♦ ♦RS2^(TEMP-3.^TEMPl)))/(95.+Zl) 1731 

RETURN 1732 

C . 1,1 . 1733 

201 TEMPI • -12.*XY11-20.^XY22-8.^XY33+10.^XY23-6.^XY31 1739 

TEMP • XYll-95 .♦XY22-109. ♦XY33+5.^XY12+85. ♦XY23-13. ♦XY31 1735 

♦ +$♦ ( 12.*XYll-t-90. ♦ (XY22«-XY33)-10.^XY12-35.^XY23 + 23. ♦XY31 ) 1736 

+ +RS2^TEMP1 1737 

XONDN • (2. ♦TEMP + 3 . ♦ OLOG+ (-65 . ♦ X Y 1 1-1 5. ♦ X Y2 2-30 . ♦X Y 1 2 1738 

♦ (-20.^XYll+30. ♦XY22+35.^XY12-30.^XY23-70.^XY31 ) 1739 

♦ +RS2^ ( TEMP-3. ♦TEMPI )))/( 360. ♦Zl) 1790 

RETURN 1791 

C . 2,1 . 1792 

202 TEMPI • -12.*XY11-20.^XY22+8.^XY33-10.+YX32-6.*YX13 1793 

TEMP • 7.^XYll-25. ♦XY22-56.^XY33-5.^XY12+7. ♦YXIS+IS. ^7X32 1799 

♦ +S^(-5.*XY23+17.^XY31+10.*YX21) ♦ RS2^TEMP1 1795 

XONDN • (2. ♦TEMP + 3.*0LQG+(-65.*XYll-15.*XY22-30.*XY12 1796 

♦ +S^(-30.^XY23-70. + XY31-95.^YX21) 1.797 

♦ +RS2+( TEMP-3. *TEMP1 )))/ (360. ♦Zl) 1798 

RETURN 1799 

C . 3,1 . 1750 

203 TEMPI • -12.^XY11-20.^XY22-2.^XY33+10.*XY23-6.^YX13 1751 

TEMP » 7.*XY11-55.*XY22-96.*XY33+35.*XY23-3.^YX13-15.^YX21 1752 

♦ ♦$♦ (-10.^XY12+17.^XY31+15.^YX32) ♦ RS2^TEMP1 1753 

XONDN • (2. ♦TEMP + 3 . ♦DL 0G+ (-55 . ♦ X Y 1 1+ 1 5 . ♦ X Y2 2 +30 . +Y X2 1 1759 

♦ +S^(25.^XY12-50.^XY31-30.^YX32) 1755 

♦ +RS2*(TEMP-3. ♦TEMPI) )) /(360. *21) 1756 

RETURN 1757 

C . 5,1 . 1758 

209 TEMPI » 2.*XY12-X3*( Y1-Y2) 1759 
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TEMP »-3. ♦XYn-3.*XY22 + 16.*XY33*3.*XY12-5.*YX21-'t.*XY23-6.*YX32 1760 

♦ -2.*XY31 + ‘i.+YX13 1761 

♦ +S*(3.»XY22-^.*XY33-1.5*XY12*0.5»YX21-XY23+5.*YX32-XY31 1762 

♦ +3.*YX13) + RS2*TEMP1 1763 

XDNDN « (2.*TEMP + 3.*DlOG*(13.*XYllt3.*XY22*6.*XY12 176't 

♦ ♦S*(2.*XYll-3.*XY22-3.5*XY12+4.5*YX21+6.*XY23tl‘V.*XY31) 1765 

♦ +RS2+(TEMP-3.*TEMP1) ))/ (36.*21) 1766 

RETURN 1767 

C . 5,3 . 1768 

205 TEMPI • 2.*XY12-X3*<YUY2) 1769 

TEMP • -5.*XYll+3.*XY22+8. *XY33^3.*XY12-5.*YX21-2.*XY23-2.*XY31 1770 

♦ +S*(3.*XY22+1.5*XY12-0.5*YX21-XY23+5.*YX32-3.*XY31+YX13) 1771 

♦ +RS2*TEMP1 " 1772 

XONON • (2.*TEMP ♦ 3 . *01 OG* ( 1 1 . ♦ X Y 1 1- 3. ♦ X Y 22 + 6. *Y X2 1 1773 

♦ +S*(-2.*XY11-3.*XY22-2,5*XY12+1.5*YX21+10.*XY31-6.*YX32) 177^ 

♦ +RS2*(TEMP-3. ♦TEMPI)) )/(36. *21) 1775 

RETURN 1776 

C . 5,5 . 1777 

206 TEMPI » -XY11-3.*XY22 1778 

TEMP • -5.*XY11-3.*XY22-16.*XY33+6.*XY12 ♦ $♦ ( 6 . ♦ X Y 2 3-2 . *X Y3 1 ) 1779 

♦ +RS2*TEMP1 1780 

XDNDN • (2. ♦TEMP + 3.^DL0G*(-13.*XY11-3.*XY22-6.*XY12 1781 

♦ +S^(-6.^XY23-1^.^XY31) + R S2 ♦ ( TEMP-3 . ♦ TE MP 1 ) ) ) / ( 1 8 . ♦! 1 ) 1782 

RETURN 1783 

C . 6,5 . 178<t 

207 TEMPI • -XY12-X2^Y3 1785 

TEMP • 2.^XY11-3.*XY12-YX21-2.^XY23+3.^XY31+YX13 1786 

♦ +S + (2.^XY33-1.5^XY12 + 0.5^YX21 + 2.^X3^(Y1-Y2 ) ) ♦ RS2^TEMP1 1787 

XDNDN . (2. ♦TEMP + 3.*DL0G^(S^(9.^XY11+0.5*XY12-1.5*YX21) 1788 

♦ +PS2^ ( TEMP-3 . ♦TEMPI) ))/ (9. ♦ll ) 1789 

RETURN 1790 

C . 7,5 . 1791 

208 TEMPI » XY11+3.^XY22 1792 

TEMP « 5.^XYll+3.^XY22-8.+XY33-6.^YX21 1793 

♦ +S^(2.^XY31+6.^YX32) + RS2^TEMP1 179^ 

XDNDN « (2.*TEMP + 3 . *01 0 G+ ( - 1 1 . ♦ X Y 1 1+ 3 . *X Y 2 2 +6 . ♦ Y X2 1 1795 

♦ +S^(-10.^XY31-6.^YX32) + R S 2+ ( TEM P-3 . ♦ T E MP 1 ) ) ) / ( 1 8 . ♦ 2 1 ) 1796 

RETURN 1797 

C . 9,1 . 1798 

209 TEMPI • 6.^XY11+10.^XY22+X3*(3.^Y1-5.^Y2) 1799 

TEMP » -2.^XY11+20.^(XY22+XY33)+5.^YX21-10.^XY23+3.^XY31+YX13 1800 

♦ +$♦ (-3.^XY11-10.^XY22-2.*XY33+5.^X2^Y1+10. ♦X3^Y2-7.^XY31 1801 

♦ -3.^YX13) + RS2*TEMP1 1802 

XDNDN • (2. ♦TEMP ♦ 3 . ♦ D LQG^ ( 30 . ♦ X Y1 1 + 5 . ♦X Y 12 -10 . ♦ YX21 1803 

♦ ♦$♦ t 5.^XY11+10. ♦XY22-15.^X2^Y1+10-^YX32+25.^XY31+5.^YX13 ) lOO'i 

♦ +RS2^ ( TEMP-3. *TEMP1 )))/ (^,5 .♦21 ) 1805 

RETUPN 1806 

C . 9,5 . 1807 

210 TEMP • 4,.^XY11-8.^XY33-2.^XY12-4.^YX21 ♦ 4. ♦$ ♦( YX32+X3*Y1 ) 1808 

♦ - 2.+RS2^XY12 1809 

XDNDN • (2. ♦TEMP ♦ 3 . ♦DL OG^ ( - 12. *X Yll-2 . ♦X Y 12 +9 . ♦ Y X2 1 1810 

♦ +$♦(-'.. ♦YX32-10.^XY31-2.^YX13) +RS2^ ( TE MP+ 6. ♦ X Y1 2 ) ) ) / ( 9. ♦ 2 1 ) 1811 

RETURN 1812 

C . 9,9 . 1813 

211 TEMPI • -3.^ XYll-5 .^XY22 181<i 

temp « XY11-5.*XY22-8.^XY33 ♦ 2.^S^XY3l + RS2^TEMP1 1815 

XDNDN • 8. ♦(2. ♦TEMP ♦ 3. ♦DL OG ♦ ( -1 5 . ♦X Yl 1-5 . ♦ X Y22 - 10.^S^XY31 1816 

♦ +RS2^(TEMP-3.^TEMP1)))/(<,5.^21) 1817 

RETURN 1818 

END X819 
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OVERLAY( MAIN>6»0 ) 1820 

PROGRAM QUADS 1821 

***************************************************** **************** 1822 

1823 

THIS PROGRAM EVALUATES C-INTEGRALS FOR NONTR A P EZ 01 D AL FINITE 182A 

ELEMENTS WITH NNE • A. 1825 

> 1826 

THE DO LOOPS ENDING AT STATEMENTS NUMBERED 3 AND A CARRY OUT 1827 

GROUP transformations. 1828 

1829 

C 1831 

DIMENSION LC(1)»KC(1) 1832 

C0MM0N/SPACE/XC(107),LIMIT,SKIP(2).IC.SKP(6),IXC.SKIPP(2). 1833 

♦ XX1,XX2,XX3,YY1,YY2. YY3,ZZ1*ZZ2,ZZ3,VLG1, VLG2,VLG3. 183A 

♦ ULG1>ULG2.ULG3» OTHERS ( 1) 1835 

C0MM0N/TEMP/CL0,CL1»CL2»CL3,I,IL>IU»I1.I2»I3/IA,J,K,L»LL; 1836 

♦ R,S>R2»S2>PS.RD,SD, 1837 

♦ T1»T2»T3.TA»T5.T6.ULCG1»UL0G2.UL0G3.U1»U2.U3.UA,U5.U6. 1838 

♦ VLOG1»VLOG2.VLOG3,V2.V3,VA,V5.V6,XJ,X1.X2»X3,Y1,Y2>Y3> 1839 

♦ X2X1>X3X1,X32.Y2Y1»Y3Y1, Y3Y2> Y31. Y32,Z1 18A0 

equivalence (KC(1),XC(1))»(LC(1)»XC(1)) 18A1 

C 18A2 

C 18A3 

XI • XXl 18AA 

X2 • XX2 18A5 

X3 • XX3 18A6 

Yl « YYl 18A7 

Y2 • YY2 18A8 

Y3 • YY3 18A9 

Z1 » ZZl 1850 

R • ZZ2/ZZ1 1851 

S • ZZ3/ZZ1 1852 

R2 • R*R 1853 

S2 * S*S 185A 

RS • R*S 1855 

RO « l./(l.-R2) 1856 

SO » l./(l.-S2) 1857 

ULOGl • ULGl 1858 

UCQG2 • ULG2 1859 

UL0G3 • ULG3 1860 

VLOGl • VLGl 1861 

VL0G2 • VLG2 1862 

VL0G3 « VLG3 1863 

IL • IXC » 1 186A 

lU • IXC LIMIT 1865 

LL»0 1866 

DO A I •!» 2 1867 

DO 3 J*1»A 1868 

LL • LL + 1 1869 

DO 2 I 1-IL, lU 1870 

12 • II + IC 1871 

13 « 12 + IC 1872 

lA • 13 + IC 1873 

K * KC ( II ) 187A 

L • LC(I2) 1875 

C IF (L.EO.LL) 1876 

IF(L.NE.LL) GO TO 1 1877 

C THEN 1878 

XC(Il) - -X0NDN(Y1,Y2»Y3>Y1,Y2,Y3 ) 1879 

XC(I2) ' XDNDN(X1,X2.X3,Y1,Y2,Y3) 1880 

XCII3) • XDNDN(Y1,Y2»Y3»X1,X2,X3) 1881 

XC(IA) • -XDNDN(X1»X2»X3>X1,X2»X3) 1882 

1 CONTINUE 1883 

2 CONTINUE 188A 

c . TRANSFORMATION OF TYPE ONE. 1885 

XI • -XI 1886 

Xj • X2 1887 

X2 • -X3 1888 

X3 • XJ 1889 
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Y1 • -Y1 1890 
XJ » Y2 1891 
Y2 • -Y3 1892 
Y3 • XJ 1893 
XJ • R 189<i 
R « S 1895 
S ■ -XJ 1896 
XJ • R2 1897 
R2 • S2 1898 
S2 • XJ 1899 
RS » -RS 1900 
XJ ■ RD 1901 
RD • SO 1902 
SO • XJ 1903 
XJ • ULQG2 1904 
UL0G2 « UL0G3 1905 
UL0G3 • XJ 1906 
XJ • VL0G2 1907 
VL0G2 « VLQG3 1908 
VL0G3 • XJ 1909 

3 CONTINUE 1910 
C . TRANSFORMATION CF TYPE TWO. 1911 

X3 • -X3 1912 
Y3 « -Y3 1913 
S • -S 1914 
RS • -RS 1915 

4 CONTINUE 1916 
END 1917 
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function X0NDN(X1,X2,X3*Y1»Y2.Y3) 


THIS SUBROUTINE IS CALLED BY THE PROGRAM QUADS TO EVALUATE 
C-INTEGRALS. 


COMMQN/TEMP/CLO>CL1.CL2^CL3,I,IL,IU, II, 12.13, IA,J,K,L,LL. 
+ R,S,R2,S2,RS,R0,SD, 

♦ Tl, T2, T3,TA,T5,T6,UL061,UL0G2.UL0G3,U1,U2,U3,U^,U5,U6, 

♦ VLOGl, VLOG2, VLQG3, V2, V3, V4,V5, V6.XJ, XY( 6), 

♦ X2X1,X3X1,X32,Y2Y1,Y3Y1,Y3Y2,Y31,Y32,Z1 


CL0A(S,SSS3,R2,S2,T1,T3,T5,U1,U2» • 2 . ♦ I R D+ S D ) ♦* 3* 

♦ (T1*S*(A.*SSS3+R2*(108.+S2*t-11A.+S2*(108.-30.*S2)) 

♦ +R2*I186.>S2*l-26‘,.»^S2*t33.v9. + S2>l+R2*t-6‘,.vS2*t69.-6. + S2) 

♦ +R2»(-18.+q.*S2 n ) ) ) 

♦ +T3+S*(-20.*SSS3+R2+(-5A6.+S2*(llAO.+S2*t-582+60.*S2)l 

♦ +R2+(-360.+S2+(15.+69.*S2)+R2*(278.-lll.*S2)))) 

♦ ♦T5*(-20.*SSS3+R2*(50.+S2*(-48.tS2*(-300.+lSA.*S2)) 

♦ +R2*(-30.+S2*(A50.<-S2+(-<t5.-33. + S2)) + R2*(-10.+S2*(-27(S. 

♦ +57.*S2) + P2* ( 10.t30.*S2) ) ) ) ) 

♦ ♦Ul*S2+(SSS3+R2*S2*(-75.+S2*(93.+3.*S2)-9.*R2*S2)) 

♦ +U2*(-9. +8.*SSS3+R2*S2»(-<f5.+S2*(A8.-6.*S2) +R2+S2»( 10.5-9.*S2) 

♦ ) ) ) 

CLl't(R,S,R2,S2,Tl,T3,T5,Ul,U2) • -3.*R2*S* 

♦ (Tl*(S2*(-l.+S2*(6.+3.*S2))+R2*(3.-3.*S2*S2+3.+R2*(6.-S2+R2)>) 

♦ +T3+ (3, +R2A(-30.-A5.*R2)+S2*(-l0.+30.*R2+15.*S2) ) 

♦ +T5*SAI-1.+R2A|10.+15.*R2)-1S.*S2*S2) 

♦ ♦U1*R2*S»(1.+3.*R2) 

♦ +U2*S*(0.5+R2*(-6.+3.*S2-3.*R2))) 
CL2‘^(R>S,R2,S2,T1,T2,T3,TA,T5,T6,U1,U2) • 3.*S* 

♦ (T1*(-12.*(1.+R2)+A.*S2) -T2*8.*R*S 

♦ ♦■T3*(60.+12.*R2-20.*S2) -TA*8.*R*S 

♦ -T5*S*(20.+A.*R2) ♦ T6*S* ( 10. +6 . *R2-10 . *S 2 ) 

♦ -U1*S*(3.+R2-S2) +U2*8.*S) 

CL05(R2,S2,T1,T2,TA,T6) - (R0AS0)**3* 

♦ ( Tl + (20.+R2* (A80.-1176.*S2 + R2*( 1596.+S2* (-I08 0.+762.*S2) 

♦ +R2+(-A0. ♦S2*(-l‘tA.-156.*S2)+R2*(-3A8 . + 216.*S2) ) ) ) ) 

♦ ♦T2*(-70.+S2*(190.+S2*S2*(-190.*70.*S2)) 

♦ +R2*(936.+S2+(-18A2.+S2*(3822,+S2*(-197A+210.*S2))) 

♦ ♦R2*(Z610.+S2*(-59A0.+S2*(1626.+168.<‘S2) ) 

♦ +R2*( 532. + S2 + (982.-AA2.*S2) ♦ R 2* ( -8 AO . +920 . ♦$ 2 ) ) ) ) ) 

♦ +TA*(-80.+S2*(10AA.+S2*(5AO.*S2*(-292.-60.AS2))) 

♦ ♦R2*(-1368.»S2*(17A0.»S2*(-2706,+S2*(62A.+30.+S2))) 

♦ +R2*(-1800.+S2*(2208.+S2*(-20A.-20.*S2)) 

♦ +R2*(82A. + S2*(-708. + 130.*S2) + R2* ( 1 20 . -60 . ♦ S 2 ) ) ) ) ) 

♦ >T6*(-1A8.+R2A(-6168.+11730.*S2<-R2*(-3192.+S2*(-5A72.+612.*S2) 

♦ +R2* (2799 .-588. ♦S2) n ) ) 

CL15(R2,S2,T1,T2,T9,T6) * -3.* 

♦ ( T1»R2* (-S2+R2* (6.+R2+(60.+30.*(R2-S2 ) )) ) 

♦ +T2+R2*(l.+S2*(-7.+35.*S2+{l.+S2))+R2AR2*(105.*(l.-S2)+70.*R2)) 

♦ +T9+(S2*(-1.+S2*(1S.+S2*(95.+5.*S2)))+R2*(2.-5.*S2*(1.+S2*S2) 

♦ +R2*(-30.+S2*(95.-15.*S2)+R2*(-90.+25.*S2-10.*R2) ) ) ) 

♦ +T6* (-3.+R2* (92.-70. +S 2+210. AR2+(-l.+S2-R2) ) ) ) 

CL2S (R2,S2,T1,T2,T3,T9,T5,T6) • -3.* 

♦ (Tl*(3(). + S2*(-20.+6.*S2)+R2A(60.-12.*S2+6.*R2)) 

♦ +T2*(35.+S2*(-70.+35.+S2l+R2*(126.-92.*S2+15.*R2)) 

+ +T3*S2+(56.+8.*R2) 

♦ +T9+(-80.+69.*S2-98.+R2) 

♦ +T5*(90.-8.+S2+29.*R2) 

♦ +T6*(-336.+112.+S2-98.*R2) ) 
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IF (K.LE.3) 

GO TO X 

X98^ 

X935 

X986 


GO TO 6 

X987 

THEN 


X988 

X32 = X3 - X2 


X989 

X2X1 • X2 + XI 


X990 

GO TO (2,3»'-),K 


X99X 

. 1> 1 . 


X992 
X99 3 

Y32 • Y3 - Y2 


199<» 

Y2Y1 • Y2 t Y1 


X995 

X3X1 • X3 + XI 


X996 

Y3Y1 - Y3 + YX 


X997 

T1 • -X32*Y32 


X998 

T2 • X2X1+Y2Y1 


X999 

T3 » X3X1*Y3Y1 


2000 

T4 • X2X1+Y3Y1 + X3X1*Y2Y1 


2001 

T5 « X2X1*Y32 + X32+Y2Y1 


2002 

T6 • -X3X1+Y32 - X32*Y3Y1 


2003 


GO TO 5 

2004 

. 2» 1 . 


2005 

Y31 • Y3 - Y1 


2006 

Y2Y1 - Y2 ♦ Y1 


2007 

X3X1 • X3 + XI 


2008 

Y3Y2 • Y3 * Y2 


2009 

T1 - X32»Y3Y2 


20X0 

T2 • -X2X1*Y2Y1 


2011 

T3 • -X3X1*Y31 


20X2 

TA « -X2X1*Y3 - X3X1»Y2 - X32+Y1 


20X3 

T5 - T't 


20X4 

T6 • X32+Y31 + X3X1*Y3Y2 


20X5 


GO TO 5 

20X6 

. 3*1 . 


2017 

Y21 ■ Y2 - YX 


20X8 

Y3X • Y3 - YX 


2019 

X3XX « X3 ♦ XX 


2020 

TX • X32*(Y3-Y2) 


2021 

T2 • X2XX*Y2X 


2022 

T3 ■ X3X1»Y3X 


2023 

• X2XX*Y3X ♦ X3XX*Y2X 


2024 

T5 • -X2X1*Y3 ♦ X3X1+Y2 - X32*Y1 


2025 

T6 • -T5 


2026 

CONTINUE 


2027 

UX • 6.*TX 


2028 

U2 • T2 + T2 


2029 

V2 » U2+R2 


2030 

U3 • T3 + T3 


2031 

V3 » U3+S2 


2032 

U^t » T't^RS 


2033 

V4 • U<* + U4 


2034 

U5 • 3.*S*T5 


2035 

V5 * U5+R2 


2036 

U6 * 3.*R*T6 


2037 

V6 • U6+S2 


2038 

CLO = 2 .♦RD* SD* (UX* ( X.-R2-S2) +'*.♦( V2 + V3 + UA )*U^+V5 + V6) 

2039 

CLX • UX*R2*S2 - V2*(X.+3.*R2) - V3*(X. 

+ 3.*S2 ) 

2040 

+ U4+(X.-3.*(R2 + S2) ) - V5*(X. + R2-S2) 

- V6* (X.-R2+S2 ) 

2041 

CL2 • UX*S2 - U2*(3.+R2) - V3 - V«t - U5 

- U5 

2042 

CX3 . UX*R2 - V2 - U3*(3.+52) - V<» - U6 

- U6 

2043 

XDNDN • (CLO ♦ CLX*ULOGX ♦ CL2+ULOG2 ♦ 

CL3*ULOG3)/('»8.*ZX) 

2044 

. . .EXIT 


2045 


RETURN 

2046 

ELSE 


2047 

IF (K.EO.^I 

GO TO 7 

2048 


60 TO 8 

2049 
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THEN 2050 

. 5»1 . 2051 

X32 » X3 - X2 2052 

X2X1 • X2 + XI 2053 

X3X1 • X3 + XI 2054 

' n • 5.*X2Xl*n 2055 

T2 • 5.«X3X1*Y1 2056 

T3 • R»X2X1*Y2 2057 

T4 • S*X3X1*Y3 2058 

T5 • X2X1+Y3 2059 

T5 • T5 + T5 2060 

T6 • X3X1+Y2 2061 

T6 • T6 + T6 2062 

U1 • 20.*X32*Y1 2063 

U2 • 5.*X324(P*Y2-S*Y3) 2064 

RRR3 » (l.-R2)**3 2065 

SSS3 • (l.-S2)**3 2066 

TEMPI • CL04 (Sf SSS3»R2,S2» Tl, T3.T5.U1 .U2 ) 2067 

TEMP2 • CL04 (R,RRR3,S2, R2> T2» T4» T6»-U1>U2 ) 2068 

TEMP3 ■ CL14(R.S>R2.S2.T1,T3,T5»U1>U2) 2069 

TEMP4 • CL14(S.R,S2.R2>T2*T4»T6.-U1»U2) 2070 

TEMP5 « CL24 (R.S^ R2,S2, Tl, T2» T3. T4,T5.T6»U1, U2) 2071 

TEMP6 • CL24(S.R.S2.R2.T2,T1,T4,T3»T6,T5»-U1,U2) 2072 

XDNON • ( TEMP1+TEMP2+(TEMP3+TEMP4)*VL0G1 2073 

♦TEMP5*VLQG2+TEMP6*VL0G3)/(180.*Z1) 2074 

...EXIT 2075 

RETURN 2076 

ELSE (K MUST EOUAL 5) 2077 

. 5,5 . 2078 

T1 « 28.*X1»Y1 2079 

T2 = 8.»X2+Y2 2080 

T3 ■ 8.*X3*Y3 2081 

ji, . 14.*R*(X1*Y2 + X2*Y1) 2082 

T5 • 14.*S* (Xl*Y3+X3*Yl ) 2083 

T6 • RS*( X2*Y3+X3*Y2) 2084 

TEMPI ■ CL05(R2,S2,T1,T2,T4,T6) 2035 

TEMP2 • CL05(S2,R2,T1,T3,T5,T6) 2086 

TEMP3 • CL15(R2,S2,T1,T2,T4,T6) 2087 

TEMP4 • CL15(S2,R2,T1,T3,T5,T6) 2088 

TEMP5 = CL25(R2,S2,T1,T2,T3»T4,T5,T6) 2089 

TEMP6 • CL25(S2,R2,T1,T3,T2,T5,T4,T6) 2090 

XDNON » (TEMPl-t-TEMP2+(TEMP3 + TEMP4)+VL0Gl 2091 

+TEMP5*VL0G2+TEMP6+VL0G3I/(315.»Z1) 2092 

...EXIT 2093 

RETURN 2094 

CONTINUE 2095 

END 2096 
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0VERLAY(M&IN,7»0) 2097 

PROGRAM 0UAD81 2098 

2100 

THIS PROGRAM EVALUATES C-INTEGRAIS FOR NONT R AP E ZO I 0 AL FINITE 2101 

ELEMENTS WITH NNE • 8, 2102 

2103 

THE DO LOOPS ENDING AT STATEMENTS NUMBERED 3 AND 9 CARRY OUT 210't 

GROUP TRANSFORMATIONS. 2105 

2106 

C 2108 

DIMENSION LC(1)>KC(1) 2109 

COMMON/SPACE /XC (110)<IC>SKIP(6)»IXC»SKP(2»» 2110 

♦ XXI, XX2. XX3. Y Y1,YY2.YY3,ZZ1.ZZ2.ZZ3,ALG1,AL62. ALG 3, OTHERS (1) 2111 

COMMON/ TEMP /II, I2,I3,IA,K,L»X1,X2»X3»Y1,Y2,Y3,Z1,Z2,Z3, 2112 

♦ ALOGl, AL0G2, AL0G3, IL, lU, LL, I, J,0,DP1,0M1, D2, D3, 2113 

♦ E,EP1»EM1,E2,E3,FF»F2,FA,F6,G,G2,GA,G6, 211^ 

♦ Tl, T2, T3, TA, T5, T6, 2115 

♦ DL1,EL1,0L2,FL3,XJ 2116 

equivalence (KC (1 ) ,XC (1 ) )» ( LC ( 1) . XC (1 ) ) 2117 

C 2118 

C 2119 

XI * XXI 2120 

X2 • XX2 2121 

X3 • XX3 2122 

Y1 - YYl 2123 

Y2 • YY2 212A 

Y3 • YY3 2125 

Z1 • ZZl 2126 

Z2 • ZZ2 2127 

Z3 • ZZ3 2128 

ALOGl • AL61 2129 

AL0G2 ■ ALG2 2130 

AL0G3 - ALG3 2131 

IL » IXC + 1 2132 

lU • IXC + 10 2133 

LL • 0 2 13 A 

DO A I-l,2 2135 

DO 3 J«1,A 2136 

LL • LL ♦ 1 2137 

D • Z2/Z3 2138 

DPI • D 1. 2,139 

DM1 -0-1. 21A0 

D2 » D*0 21A1 

D3 • D+D2 21A2 

E • -Z1/Z3 21A3 

EPl • E ♦ 1. 21'*'' 

EMI . E - 1. 21A5 

E2 • E+E 21A6 

E3 • E*E2 21A7 

FF . Z1/Z2 21A8 

F2 ■ FF+FF 21A9 

FA « F2AF2 2150 

F6 ■ F2*FA 2151 

G • Z3/Z2 2152 

G2 a G*G 2153 

GA • G2*G2 215A 

G6 • G2*GA 2155 

C . T'L* a (Z2/Z3)*({(Z1+Z3)/Z2)AAL - ( ( Z 1-Z 3) / Z 2 ) ♦♦! ) 2156 

T1 . 2. 2157 

T2 • A.*FF 2158 

T3 a 2.+G2 ♦ 6.*F2 2159 

TA . 8.*FF*(G2 + F2 ) 2160 

T5 a 2.*GA ♦ 20.*G2*F2 + lO.+FA 2161 

T6 a 2.*ff*T3* (3. ♦G2+F2) 2162 

OLl ■ OAALOGl 2163 

ELI a -e*AL0G1 216A 

DL2 a 0AAL0G2 2165 

FL3 a FFAALDG3 2166 
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OQ 2 I1-IL,IU 2167 

12 * II + IC ■ 2168 

13 • 12 + IC 2169 

I«. * 13 + IC 2170 

K«KC(I1) 2171 

L • LC ( 12 ) 2172 

C IF (L.EO.LL) 2173 

IF(L.NE.LL) GO TO 1 2174 

C THEN 2175 

XC(Il) = -XDN0N(Y1,Y2»Y3»Y1,Y2,Y3) 2176 

XC(I2) • X0NDN(X1»X2, X3, Yl, Y2, Y3 ) 2177 

XC(I3) • XDNDN(Y1,Y2»Y3»X1,X2>X3) 2178 

XC(14) • -X0N0N(X1,X2,X3,X1»X2,X3) 2179 

1 CONTINUE 2180 

2 CONTINUE 2181 

C . TRANSFOPMAT ION OF TYPE ONE. 2182 

XI - -XI 2183 

XJ - X2 2184 

X2 • -X3 2185 

X3 • XJ 2186 

Yl » -Yl 2187 

XJ • Y2 2188 

Y2 - -Y3 2189 

Y3 * XJ 2190 

XJ • Z2 2191 

Z2 - Z3 2192 

Z3 • -XJ 2193 

ALOGl • -ALQGl 2194 

XJ • AL0G2 2195 

ALQG2 » -ALQG3 2196 

AL0G3 • XJ 2197 

3 CONTINUE 2198 

C . TRANSFORMATION OF TYPE TWO. 2199 

X3 • -X3 2200 

Y3 ■ -Y3 2201 

Z3 • -Z3 2202 

ALOGl • -ALOGl 2203 

AL0G2 » -ALQG2 2204 

4 CONTINUE 2205 

END 2206 
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FUNCTION X0NDN(X1,X2,X3,Y1,Y2,Y3) 


THIS SUBROUTINE IS CALLED BY THE PROGRAM 0UAD81 TO EVALUATE 
C-INTEGRALS. 


C 

C 


C 


c 

301 


COMMON/TEMP/11,12. I 3»1 A, K,L»XY(6)»Z1»Z2.Z3» 

♦ ALOGl,ALOG2,ALOG3,IL,IU, LI,I,J,D,0P1,0M1,D2,03, 

♦ E,EP1,EM1,E2,E3,FF,F2,FA,F6,G,G2»G<,,G6, 

♦ T1,T2,T3,TA,T5,T6, 

♦ DL1,EL1,0L2,FL3,SUML,CF(7) 

D2 • D*0 
03 • D*D2 
DA » 0+03 
E2 • E +E 
E3 • E+E2 
EA • E*E3 
SUML • 0. 

GO TO (301, 302, 303), K 
. 1,1 

XONDN • ( ( ( 2A0. *E-120. *D+120 . )»X3+ ( ( (-90. ♦EZ ) ) + ( 60 . *0- 165 . ) 

♦ *E-30.*02 tl05.*D-135.)*X2 + ({((-210.*E2 ) ) + ( IB 0 . +0-1 5 . ) *E 

♦ -78. *02 +21.YD-1 . ) *X1 ) )*Y3+ ( ( ( (-90.+E2 ) ) + ( 60 . ♦D-1 65 . ) ♦ E- 

♦ 30.*D2 +105. ♦0-135. )*X3*(A5.*£3 +90. *£2 +(A5.*02 -120.^0 

♦ +120. ) *£+30. *02 -120. +0+150. )^X2+( (90. +E3 + ( ( ( - A5 . ♦ D ) ) + 1 

♦ 05.I+E2 +(90. *02 -150.+0+15.)*E-9.+03 +39. +02 -A7.+D+5.) 

♦ +X1) )+Y2+( ( ( ( (-210.+E2 ) ) +( 180. +0-15. )*E-78, +02 +21 .♦0-1 . 

♦ )*X3+(90.*E3 +( ( (-A5.+D))+105. )*£2 +(90. *02 -150. *0+15. ) 

♦ +E-9.+D3 +39.+D2 -A7.*D+5.)*X2+((195.*E3 + ( ( ( -1 80 . *0 ) ) - 

♦ 60.I+E2 +(207. *02 +36 . ♦ 0- A6 . ) ♦E-36 . +0 3 -36. *02 +16. *0+16 

♦ .)*Xin + Yl))/180. 

CF(1) • (-((A.*E2 *X3+( ( (-2.+E3 ))-(2.*£2 ))*X2-(A.*£3 *X1 

♦ ) ) *Y3+( ( ( (-2.+E3 n-(2. +E2 ))*X3+(£A +2.*E3 +E2 )*X2+( 

♦ (2.+EA +(2.*E3 ))*Xl))*Y2+((((-A.*E3 *X3))+(2.*EA +(2 

♦ .*E3 ))*X2+(A.*EA *Xin*Yl))/16.) 

CF(2) « (((8.*E2 +( ( ( (-8. + 0) >+A.)*E) )*X3+( ( (-2.+E3 )) + (6.*D 

♦ -7i )*£2 +( (A.+D-5. )♦£)) *X2+( ( ( (-6. + E3 ) ) + ( ( 12 . ♦ D- 2 . ) *E 2 

♦ ) )*X1) )*Y3+( ( ( (-2.+E3 ) )+(6.*0-7.)*E2 + ( ( A. *0-5 . ) *E ) ) ♦ X 3 

♦ + ( ( ( (-A.+0 ) ) +A. ) *E3 +( ( (-6.*D)> + 8. )*E2 + ( ( ( ( -2 . *0 ) ) +A . ) ♦ 

♦ E))*X2 + ((EA +( ( (-8.+0) ) + 5. )*E3 + ( ( ( ( -6 . ♦ 0 ) ) + A . ) *E 2 ) ) *X 

♦ 1) )*Y2+( ( ( ( (-6.+E3 ))+( ( 12.*0-2.)*E2 ))*X3+(EA +(((-8.* 

♦ 0))+5.)*E3 + ( ( ( (-6.*D) ) +A. )*E2 ) ) ♦ X 2 + ( ( A . *E A -(16.+D + E* 

♦ *3) )*X1) )*Y1) )/16. 

CF(3) • (-(((A. + E2 +( ( ( -16 .*0 ) ) + 8. )♦£.+ A. +02 -A . +0 +1 . ) ♦ X3+ ( (6 

♦ .*D-5.)*E2 +(((-6. *02 ) ) + lA.*0-7.)*E-2.+02 + 5 . *0-2 . ) ♦ X2+ ( 

♦ (((-2.+E3 n + (18.*0-l.)*E2 +( (((-12. + 02 ) ) + A . *0 + A . ) ♦ E ) ) ♦ 

♦ XI ) )*Y3+ ( ( (6. *0-5. ) *E2 +(((-6. *02 ) ) + 1 A . ♦ 0- 7 . ) *E-2 . *02 +5 

♦ .*0-2. )*X3+( (6.+D2 -12.+0+A. )*E2 +(6.*02 -16. *0+8 . ) *E+D2 

♦ -A. +0+A. ) *X2+ ( ( ( ( ( -A .*0 » )+l. )*E3 +(12. *02 -1 5 . ♦ 0- 1 . ) *E 2 

♦ +((6.*D2 -8. + 0-2. )*E n*Xl n*Y2 + ( ( ( ( (-2. *E3 ) ) + ( 13 . *0-1 . ) 

♦ *E2 +((((-12. *02 I ) +A.+0+A. )*E) )*X3+ ( ( ( (-A. *0) )+l. )*E3 + 

♦ (12. *02 -15. *0-1 . ) *E2 +((6.*02 -8 . * 0-2 . ) * E )) *X2 + ( ( E A +(( 

♦ (-16. + D) )-A. )*E3 +((2A.*02 -8.)*E2 ) ) * X 1 ) ) * Y1 ) ) / 16 . ) 

CF(A) * (-( ( ( (8. + D-A. )*E-8.*r>2 +8 . * 0-2. ) *X 3+ ( ( 6 . *02 -10. *0+2 

♦ .)*E-2.»D3 +7. *02 -7.*D+2. ) *X2 + ( ( ( ( (-6 .*0) )-l. )*E2 +(18. 

♦ *02 -2.+0-5. )*E-A.*03 +2. *02 + A. *0-2 . ) *X 1 ) ) *Y 3+ ( ( ( 6. *02 

♦ -10. + D + 2. ) *E-2 .*03 +7. *02 -7 . *0 + 2. ) *X 3 + ( ( A . *03 -12. *02 

♦ +(8.*0) »*E+2.*D3 -8. *02 + ( 8. *0 ) » ♦ X2+ ( ( ( ( ( -6 . *02 ))+3.*D+ 

♦ 2.)*E2 +( 8.*03 -15. *02 -2 . *0 +6 . ) *E + 2. * 03 -A. *02 -2.*D+A 

♦ . )*X1) )*Y2+ ( ( ( ( ( (-6. *0) ) -1 . )*E2 +(18. *02 -2 . *0-5 . ) * E-A . *0 

♦ 3 +2. *02 +A.+D-2. )*X3+( (( (-6.*02 ) ) + 3 . *0 +2 . ) *E2 +(8.*D** 

♦ 3-15. *02 -2.+0+6. )*E+2.*03 -A. *02 -2 . ♦ 0+A . ) ♦ X2 + ( ( ( A . *0 + 2 

♦ .)*E3 +(((-2A.*02 ) )-12.*0 + A. )*E2 +(U6.*03 -(16.*0))*E 

♦ ) )*X1) )*Y1) )/16. ) 
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* 
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* 

* 

* 

* 

* 

♦ 
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* 

* 

* 

* 
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♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 
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* 

* 

* 

♦ 

♦ 

* 

* 

If 
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CFO) • (-(((<>. *02 -4.»0 + l. )*X3+(2.*D3 -5. *02 + < 2 . *0 ) ) ♦ X2 ♦ ( 

((((-6.»D2 ) )-2.*D+l. )*E + 6.*D3 -02 -5 . +0 + 2 . ) ♦ XI ) ) ♦ Y3+ { ( 2 

.*03 -5. *02 +(2.*0) )*X3*(D4 -<);*03 +(<*.*02 ))*X2*((((( 

-4. *03 )) + 3.*02 +('i.*0) )*E+2.*0'V -5. *03 -02 +(6.*0))*X 

1) )*Y2+( ( ( t ( (-6.*02 ) )-2.*0*l. )*E + 6.*03 -02 -5.*0 + 2.)*X3 

♦ ((((-A. *03 ))+3.*02 +(A.*0) )*E + 2.*0A -5. *03 -02 +(6.* 

0) )*X2 + ( ( (6.*02 +6.*0 + l.)*E2 +(((-16. *03 ))-12.*02 +0.*O 

+ A.)*E+A.*0A -8. *02 + A . ) *X 1 ) ) * Y 1 ) ) / 16 . ) 

CF(6) • (0*(D+1. )*( ( ( (2.*0)-l. )*X1*Y3)+(D2 -(2.*0) )*Xl*Y2+( ( 
(2.*0-l.)*X3+(02 -(2.*0))*X2+(((((-A.*0))-2.)*E+A.*02 -A. 
)*X1 n *Y1 ) ) ) /16. 

CF(7) • (-(02 *( 0 + 1. ) **2*X1*Y1 ) /16. ) 

GO TO 350 

. 2^1 

XONON • ( ( (2AO.*E-(120.*0) )*X3 + ( ( (-90. + E2 ) ) ♦ ( 60 . *0-1 35 . ) *E- 
30. +02 +75. *0-A5. ) *X2+( ( ( (-210.+E2 ) ) + ( 180 . *0+ 75 . ) * E-78 . * 
02 -57. *0-19 . ) *X1) ) *Y3+ ( ( ( (-90.+E2 ) ) + ( 60 . *0 + 1 35 . ) * E-30 . * 

02 -75.+0-A5. )*X3+(A5.*E3 +((A5.*D2 -90 . ) * E ) ) * X2 + ( ( 90 . * E 

3 +( ( (-A5. + 0) )-135. )*E2 +(90. *02 + 1 50 . *0 +A 5 . ) *E-9 . *0 3 - 

57. *02 -83.+0-15. ) *X1) ) ♦ Y2+( ( ( ( (-210.+E2 ) ) + ( 1 80 . *0-75 . ) * 
E-78. *02 +57.*0-19.)*X3 + (90.*£3 + ( ( ( - A5 . +0 ) ) + 1 3 5 . ) ♦ E2 +( 

90. *02 -150. + D + A5. )*E-9.*03 +57. *02 -8 3 . ♦ 0 + 1 5 . ) *X2+ ( ( 19 5 

.*E3 -180.+0 + E2 +(207. *02 -6A . > ♦ E-36 . ♦ 03 + ( 16 . * 0 ) )* XI ) ) 
*Y1 ) )/180. 

CF(1) * (-((A.+E2 *X3+( ((-2.+E3 ))-(2.*E2 ))*X2-(A.*E3 *X1 

) )*Y3+{(( (-2.+E3 ))+(2.*E2 ))*X3+(EA -E2 )*X2+((2.*EA 

-(2.+E3 ) )*X1 ) )*Y2+ ( ( ( (-A. + E3 *X3)) + (2.*EA +(2.*E3 )) 

*X2+(A.*EA *X1 ) ) *Y1) )/16. ) 

CF(2) - (((8.+E2 -(8.*0*E))*X3+(((-2.*E3 ) ) + i 6. ♦ 0-5 . ) *E 2 +( 

(A.*0-3.)*E) )*X2+( (( (-6.+E3 ) ) + ( ( 12 . ♦ 0 + 2 . ) * E2 ))*X1))*Y3 

+ ((((-2.*E3 ) ) + (6.*0+5. )*E2 + ( ( ( ( - A . *0 ) ) -3 . ) ♦ E ) ) * X3 + ( ( (- 

A.*0*E3 ) l + (2.*0*E) )*X2+((EA + ( ( ( - 8 . ♦ 0 ) ) -5 . ) ♦ E 3 +((6.* 

0 + A.)*E2 ) )*Xin*Y2+(((((-6.*E3 ) ) + ( ( 1 2 . * 0-2 . ) * E 2 ))*X3 + 
(EA +(((-8.*0))+5.)*E3 +( ( ( (-6.*D) )+A. )*E2 ))*X2+((A.*E 

A -(16.+0 + E3 ))*Xin*Yl))/16. 

CFO) • (-(((A. + E2 -16.*0*E+A.*02 - 1. ) ♦ X 3+ ( ( 6 . *0-3 . ) *E 2 +((( 
-6. *02 ) )+10.*0-l. )*E-2.*02 +3 . ♦ 0 + 2 . ) *X2 + ( ( ( ( -2 . * E 3 )) + ( 
18.*0+5.)*E2 +((((-12. *02 ) ) -A. *0+ A . ) * E ) ) *X 1 ) ) * Y 3+ ( ( ( 6 . *0 
+ 3.)*E2 +(((-6. *02 ) )-10.*0-l. )*E + 2.*02 + 3 . *0-2 . ) *X 3 + ( ( 6 . 
*02 -A.)*E2 -02 +A. )*X2+( ( ( ( (-A.+0) )-3. )*E3 +(12. *02 +15 

.*0+l.)*E2 +((((-6. *02 ) )-8.*0 + 2. )*E ) )*X1) )*Y2 + ( ( ( ( (-2.+E 
3 ) )+ (18.+D-5. )*E2 +((((-12. *02 ))+A.*0 + A.)*E))*X3 + ((((- 

A.*0) ) +3. ) *E3 +(12. *02 -15 . * 0 + 1 . ) *E 2 +((6.*02 -8. *0-2.)* 

E))*X2 + ((EA -16.*0*E3 +((2A.*02 -8.)*E2 ) ) * Xl ) ) * Y1 ) ) / 16 

.) 

CF(A) • (-{ ( (8.*0*E-8.*D2 +2. ) *X3+ ( ( 6. *02 -6 . *0-2 . ) *E-2 . *0** 
3 + 5. *02 -0-2 . )*X2+ ( ( ( ( (-6.+0 ) )-3. ) *E2 +(18. *02 +10. *0-3.) 
+E-A.+03 -2. *02 +A.*0+2. )*X1) )*Y3+ ( ( (6.+02 +6 . *0-2 . ) ♦ E-2 

.*03 -5.*02 -0+2.)*X3+(A.*D3 - ( 8 . *0 ) ) *E *X2+ ( ( ( ( ( -6. *02 

) )-9.*0-2. )*E2 +(8.*03 +15. *02 +2. *0-2 . ) *E-2 . *03 -A.*D* 

0+2 .*0 + A. )*X1 ) ) *Y2+ ( ( ( ( ( (-6.*0 ) ) +3. )*E2 +(18. *02 -10. *0-3 
.)*E-A.*03 +2. *02 +A.+0-2. ) *X3 + ( ( ( (-6. *02 ) ) +9 . *0-2 . ) *E ♦ 

E+(8.*03 -15.+02 +2.*0+2.)*E+2.*03 -A. *02 -2. *0+A . ) *X2+ 

((A. + 0 + E3 +(((-2A.*02 ))+A.)*E2 +((16. *03 - ( 16 . ♦ 0 ) ) +E ) ) 

*X1 ) )*Y1 ) ) /16. ) 

CF(5) • (-(((A. *02 -1. )*X3 + (2.*03 -3. *02 -( 2 . *0 )) *X2 + ((((( - 

6. *02 ) )-6.*0-l. )*E+6.*03 +5. *02 -3 . *0-2 . ) * X 1 ) ) * Y 3+ ( ( 2 . * 

03 +3. + 02 -( 2.*0) )*X3+(0A -(A. *02 ) ) *X 2 + ( ( ( ( ( - A . * 03 )) 
-9. *02 -(A. + O) )*E + 2.*0A +5. *03 +02 -( 2 . *0 ) ) * X 1 ) ) * Y2+ ( ( ( 

(((-6. *02 ) )+6.*0-l. )*E+6.*03 -5. *02 -3 . * 0+ 2 . ) * X 3+ ( ( ( ( -A 

.*03 ))+9.*02 -(A.*0) )*E+2.*0A -5. *03 +02 +(2.*0))*X2+ 

(((6. *02 -l.)*E2 +(8.*0-( 16.*03 ))*E+A.*0A -8. *02 +A.)+ 

XI) )+Yl) ) /16. ) 

CF(6) • (0*((((2.*02 )+3.*0+l.)*Xl*Y3)+(03 +3. *02 +(2.*0))+ 

XI* Y2+ ( ( ( 2. + D2 -3.*0+l.)*X3 + (03 -3. *02 + ( 2 . *0 ) ) * X2 + ( ( ( 2- 

(A.+02 ))*E+A.*03 - (A.*0) ) *X1) )* Y1 ) ) ) /16. 

CF(7) • (-((DA -02 )*X1*Y1 )/16. ) 

GO TO 350 
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c 

303 


C 

350 


. 3»1 

XONDN « ((120.*E*X3+(((-90.*E2 J) ♦ ( < (-50. *0) )-l 5. )♦ E-30.*02 

♦ +45.+D+15. )*X2+( ( ( (-150.*E2 ) ) ♦ ( ( (-60. *0 ) ) +9 5. ) ♦E-42 . *D2 

♦ »39 .♦D + 1. )*X1 ) ) ♦Y3+( (90.*£2 ♦ ( ( (-60 . ♦ 0) ) -1 5 . ) *E +30 . *02 -9 

♦ 5.*0-15. )*X3+ { { (-<»5.*E3 »)+({((-45.*D2 ) ) +120. ♦D-30 . ) *E ) 

♦ )+X2+( ( ( (-90.+E3 ))+(45.*0+75.)*£2 +(((-90.*D2 ))+90.*D+ 

+ l5.)*E+9.+03 +21.+02 -73.+0-5.)+Xl))*Y2+(((((-150.*E2 )) 

♦ + (eO. + D-'tS. ) + E-92. *02 +39.*0 + l.)*X3+(90.*E3 + ( «»5. +0+75. ) 

♦ +E2 +(90.*D2 -90. + D-15. )*E+9. + 03 +21. *02 - 73. +0-5 . ) *X2 + ( 

♦ (165. +E3 +( (153.+D2 -36. + 0-79. )*£ ) )*X1) )+Yl) ) /180. 

CF(1) ■ (-((<.. *E2 +X3+ ( ( (-2.+E3 ))-(2.*E2 )) + X2-(«.*E3 *X1 

♦ I ) + Y3+( (2.+E3 -(2. + E2 )) + X3+(((-E4 ))+E2 ) +X2 + ( ( ( (-2 . *E 

♦ 4 ))+(2.+E3 ))+Xl))+Y2+((((-4.*£3 ♦X3))+(2.+E4 +(2.*E 

♦ 3 )) + X2+(4. + E4 *X1 > ) + Yl ) )/16. » 

CF(2) « (-(((8.+D-4.)+E*X3+(((-2.*E3 ) ) + ( ( (-6 . +0 ) ) +3 . ) ♦ E2 + 

♦ ({((-4. + D)) + 5.)+E))+X2 + ((((-2. + E3 )) + (((( -12. *0 )) +2 .) ♦£♦ 

♦ E ) )*X1) )*Y3 + ( ( ( (-2.+E3 ) ) + (6.*0-3. ) + E2 ♦ ( ( ( ( - 4. +D ) ) + 5 . ) ♦ 

♦ E) ) +X3+( ( ( (-4.+0) J+4. I+E3 +( (2.+0-4. )♦£) )+X2+( (E4 + t ( (- 

♦ 8.*0) )+3. )*E3 +((6.*D-4.)*E2 ) ) *X1 ) ) *Y 2+ ( ( ( 2 . ♦ E 3 +((((- 

♦ 12.+D) )+2. )*E2 ))*X3+(E4 + ( 8 . *0- 3. ) *E 3 + ( ( 6 . +D-4 . ) + E2 ) 

♦ )+X2+(16.+0+E3 +X1) )+Yl) )/16. ) 

CF(3) • (((4.+E2 -4. +02 +4. +0- 1. ) ♦ X 3+( ( 6 . ♦ D-5 . ) +E 2 +(6.*02 - 

♦ 6.4D-3.)+E+2.*02 -5.*D+2.)+X2+((((-2.+E3 ) ) + 1 6. ♦D-3 . ) *E* 

♦ E+((12.*02 -4.+0-4.l+E))+Xl))*Y3+(((6.*D-5.)*E2 +(({-6.*D 

♦ +D) )+6.+D+3. ) + E+2.*D2 -5 . *0+2. ) + X3+ ( ( 6 . +0 2 -12 . *0 + 4. ) *E 2 

♦ -02 +4.*0-4.)*X2+(((((-4.*0))+l.)*E3 +(12. *02 -9. *0-3.)* 

♦ E2 +{(((-6.*D2 ) 1+8. *D+2.»*E) )*X1) )*Y2+( ( ( ( (-2.+E3 >)+(( 

♦ (-6.+0) ) + 3. )*E2 +((12. *02 -4. *0-4 . ) ♦ E ) ) *X 3+ ( ( ( { -4 . *0 ) ) +1 . 

♦ )*E3 +(((-12. *02 ) ) +9. + D + 3. )*E2 +((((-6. *02 ))+8.*D+2.)* 

♦ E)1*X2 + ((E4 +((((-24. *02 ))+8.)*E2 ) ) * XI ) ) * Y 1 ) ) / 16 . 

CF(4)|* ( ( (8.*0-4. )*E*X3 + ( (6.+D2 -10 . *0 + 2 . ) *E +2 . ♦ D3 -3. *02 

♦ -3;*0 + 2.1*X2+(((((-6.*0))-l.)*£2 + ( 6 . * D 2 -6 . *0-3 . ) *E +4 . * 0 

♦ 3 '-2. *02 -4.*0+2. )*X1) )*Y3+( ( (6.+02 -10 . *0 +2 . ) ♦ E-2 . *0 3 

♦ +3. *02 +3.*D-2. )*X3 + (4.*03 -12. *02 + ( 8 .* 0 ) ) *E *X2+ ( ( ( ( ( -6 

♦ .*02 ) ) + 3.*D + 2. )*E2 +(8.*03 -9. *02 -6 . * 0 + 2 . ) ♦ E-2 . * 03 +4 

♦ .*02 +2.*0-4. )*X1) )*Y2+( ( ( { ( (-6.*D) )-l . )*E2 +(((-6. *02 )) 

♦ +6.*0+3.)*E+4 .*03 -2. *02 -4. *D+ 2. ) *X3 + ( ( ( t -6 . *02 ))+3.*0 

♦ +2.)*E2 +(((-8. *03 ))+9.*02 + 6. *0-2 . ) * E-2 . *03 +4. *02 +2 

♦ .*0-4. )*X2 + ( ( (4.*0 + 2. )*E3 +((((-16. *03 ) ) + ( 16 . *0 ) ) *E ) ) * 

♦ XI ) )*Y1) ) / 16. 

CF(5).,« (((4. *02 -4.*0 + l.)*X3+(2.*03 -5. *02 + ( 2 . *0 ) ) * X2+ ( ( ( 

♦ ((-6. *02 ))-2.*0 + l. l*E+2.*03 - 3. ♦ 02 - 3 . *0 +2 . ) *X1 » ) * Y3+ ( ( 

♦ 2. *03 -5. *02 +(2.*0) )*X3+(04 -4. *03 +(4.*02 ))*X2+(((( 

♦ (-4. *03 ))+3.*02 +(4.*D ) )*E + 2.*D4 -3. *03 -3. *02 +(2.*0 

♦ ) )*X1 ) )*Y2+( ( ( ( ( (-6.+02 n-2.*0 + l. )*E-2.*D3 +3. *02 +3.*D 

♦ -2. )*X3+( ( ( (-4.*03 )) + 3.*02 + ( 4 . *0 ) ) *E -2 . +04 +3. *03 +3 

♦ .*02 -( 2.*D) ) *X2+ ( ( (6.+D2 +6.*0+l.)*E2 -4. *04 +8. *02 -4. 

♦ i*xin*Yin/i6. 

CF(6) « (-(0*(0 + l.l*((((2.*0)-l.(*Xl*Y3) + (02 - { 2 . *0 ) ) *X 1*Y2 + 

♦ ( ( (2.+0-1. )*X3+(02 -(2.*D) )*X2 + ( ( ( (-4. + 0) )-2. )*E*X1) )*Y1) 

♦ ))/16.) 

CF(7) • (02 *(0+l.)**2*Xl*Yl)/16. 

. END OF COMPUTED GO TO. 

CONTINUE 

SUML • CF (7 )* (2. *(G6 + 5.*G4*F2 + 3.*G2*F4 + F6/7. )*E L 1 + 2./7.+0L2 

* +2.*( F6+5.*F4*G2+3. +F2+G4+G6/7. )*AL0G3 

* -(30.*T6+10.*T4+6.*T2)/105.) 

* + CF (6) *( ( (F6 + G6-1 . )/3. + 5.*F2*62*(F2+G2 n*DL 1 

* +2.*(F4+10.*F2*G2/3. + G4)*FL3 -( 15 . *T 5 + 5 . * T 3 + 3. *T1 ) / 45 . ) 

* + CF(5)*(2.*(G4+2.*F2*G2+F4/5. >*EL1 +2./5.+DL2 

* +2.*(F4 + 2.*F2*G2 + G4/5.)*ALOG3 -(6 .*T4 + 2 . * T2 ) / 1 5 . > 

* + CF(4)*(((F4+G4-l.)/2.+3.*F2*G2)*DLl +2 . ♦ ( F2 +G2 ) *F L 3 

* -( 3.+T3+T1 )/6. ) 

* + CF (3)* ( 2. /3. )* ( ( F2+3.+G2 ) *EL1 +012 + ( 3 . *F 2 +G2 ) * AL OG 3 -T2) 

* + CF(2)*( (F2+G2-1. )*0L1 +2.+FL3 -Tl) 

* + CF(1 )*2.*(EL1+0L2 + AL0G3) 

XONON • -XDNDN/Z3 + SUML/Z2 
RETURN 

END 
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APPENDIX A 


0VERLAY(MAIN,10»0) 2A12 

PROGRAM 0UAD82 2A13 

2^14 
2A15 

THIS PROGRAM EVALUATES C-INTEGRALS FOR NON TR A P E Z 01 DAL FINITE 2<>16 

ELEMENTS KITH NNE « 8. 2A17 

C 2'tl8 

C THE DO LOOPS ENDING AT STATEMENTS NUMBERED 3 AND A CARRY OUT 2A19 

C GROUP TRANSFORMATIONS. 2A20 

C 2A21 

C 2A23 

DIMENSION LC(l),KCa) 2A29 

C OM MON/SPACE/ XC( 110). IC» SKI P{6)» I XC»SKP{ 2), 2A25 

♦ XX1,XX2.XX3.YY1.YY2,YY3.ZZ1.ZZ2.ZZ3.ALG1»ALG2.ALG3.DTHERS(1) 2926 

C0MM0N/TEMP/I1.I2.I3,I9,K,L,X1,X2.X3»Y1,Y2,Y3.Z1,Z2.Z3. 2927 

♦ AL0G1.AL0G2.AL0G3.IL,IU,LL, I. J.0.0P1.DM1.D2.D3. 2928 

♦ E,EP1,EM1,E2.E3.FF.F2,F9,F6.G,G2.G9.G6» 2929 

♦ T1.T2.T3.T9.T5.T6. 2930 

♦ DLl. ELI. DL2. FL3.XJ 2931 

EQUIVALENCE ( KC ( 1 ) . XC ( 1 ) ) . ( L C ( 1 ) . XC ( 1 ) ) 2932 

C 2933 

C 2939 

XI ■ XXI 2935 

X2 • XX2 2936 

X3 • XX3 2937 

Y1 • YYl 2938 

Y2 • YY2 2939 

Y3 • YY3 2990 

21 • ZZl 2991 

22 - 112 2992 

Z3 - ZZ3 2993 

ALOGl • ALGl 2999 

AL0G2 • ALG2 2995 

ALQG3 • ALG3 2996 

IL • IXC + 11 2997 

lU * IXC + 36 2998 

LL • 0 2999 

DO 9 1-1.2 2950 

DO 3 J-1.9 2951 

LL - LL ♦ 1 2952 

0 • Z2/Z3 2953 

DPI -0+1. 2959 

DM1 • D - 1. 2955 

D2 • D*D 2956 

D3 • D*02 2957 

E • -Z1/Z3 2958 

EPl • E + 1. 2959 

EMI ■ E - 1. 2960 

E2 • E*E 2961 

E3 • E*E2 2962 

FF • Z1/Z2 2963 

F2 • FF*FF 2969 

F9 - F2*F2 2965 

F6 • F2*F9 2966 

G • Z3/Z2 2967 

G2 ■ G+G 2968 

G9 • G2*G2 2969 

G6 - G2AG9 2970 

C . T'L* • (Z2/Z3)*(((Z1+Z3)/Z2)**L - ( ( Z 1-Z 3 ) / Z2 ) ♦♦! ) 2971 

T1 i 2. 2972 

T2 • 9.*FF 2973 

T3 • 2.*G2 + 6.*F2 2979 

T9 • 8.*FF*(G2+F2) 2975 

T5 • 2.*G9 ♦ 20.*G2*F2 + 10.*F9 2976 

T6 • 2.*FF*T3*(3.*G2+F2) 2977 

DLl • D+ALOGl 2978 

ELI ■ -E*AL0G1 2979 

DL2 « D+AL0G2 2930 

FL3 - FFAAL0G3 2981 
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DO 2 ii.iL,iu a'tsa 

12 • II ♦ IC 2^83 

13 « 12 ♦ IC 

14 • 13 + IC 2485 

K - KC ( II ) - 3 2486 

L • LC(I2) 2487 

C IF (L.EO.LL) 2488 

IF(L.NE.LL) GO TO 1 2489 

C THEN 2490 

XC(Il) • -XONDNI Y1>Y2.Y3,Y1» Y2»Y3 > 2491 

XC(I2) * X0N0N(X1,X2»X3.Y1.Y2»Y3) 2492 

XC(I3) • X0NDN(Y1,Y2»Y3»X1,X2,X3) 2493 

XC(I41 • -XDNDN(X1,X2»X3.X1,X2,X3> 2494 

1 CONTINUE 2495 

2 CONTINUE 2496 

C . TRANSFORMATION OF TYPE ONE. 2497 

XI • -XI 2498 

XJ • X2 2499 

X2 > -X3 2500 

X3 • XJ • , ' ' ' ' " 2501 

Y1 • -Y1 2502 

XJ » Y2 2503 

Y2 • -Y3 2504 

Y3 • XJ 2505 

XJ - Z2 2506 

22 • 23 2507 

23 • -XJ 2508 

ALOGl ' -ALQGl 2509 

XJ • ALQG2 2510 

ALQG2 • -AL0G3 2511 

AL0G3 • XJ 2512 

3 CONTINUE 2513 

C . TRANSFORMATION OF TYPE TWO. 2514 

X3 • -X3 2515 

Y3 • -Y3 2516 

23 • -23 2517 

ALOGl • -ALOGl 2518 

AL0G2 • -AL0G2 2519 

4 CONTINUE 2520 

END 2521 
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FUNCTION XDN0N(X1.X2»X3»Y1,Y2,Y3) 

THIS SUBROUTINE IS CALLED BY THE PROGRAM QUAD82 TO EVALUATE 
C-INTEGRALS. 


C 

C 

COMMON/TEMP/Il> I I 3^ I K> L > X Y ( 6 ) > Z 1 » 22 > Z 3^ 

♦ ALOGl/ ALOG2,ALQG3» IL>IU»LL»I»J*D»DPl,DMl,D2,D3f 

♦ E,EP1#EM1,E2#E3> FFj F2,FA,F6,G#G2»GA#G6, 

♦ T1»T2/T3#TA,T5»T6^ 

♦ 0LlfELl>0L2>FL3,SUML>CF(7) 

C 

02 ■ D*D 

03 ■ 0*02 
DA - 0*03 
E2 • E*E 
E3 • E*E2 
EA ■ E^E3 
SUML ■ 0. 

GO TO (30A#305,306i307#308)fK 


C 

30A 

* 

* 

* 

♦ 

* 

* 

♦ 

♦ 

* 

♦ 

* 

* 

* 

* 

* 

♦ 

♦ 

♦ 

* 

♦ 

* 

♦ 

* 

♦ 

♦ 

* 

* 

* 

* 

♦ 

♦ 

♦ 

* 

♦ 

* 


• 

XDNDN - (-(((2A0.*E-120.+D+6O.)*X3+(((-90.^E2 ) ) + ( 60. ♦D-150. 
>♦£-30. *02 +90. *0-90. ) ♦ X2+ ( ( ( ( -2 10 . *E 2 ) >+ ( 180.+0+30. ) *E- 
70.*D2 -18.*D-10. )*X1))^Y3+ C i ( (-90.+E2 ) ) + (60.*D-15. )*E-3 
0.*02 +15.*0 + 60. )*X3+(A5.*E3 -*-A5.*E2 +(A5.*D2 -60.*D-30. 

)*E+15.+02 -30.*0-30.)*X2+( (90.*E3 ♦(((-A5.*D))-15.)*E2 

+(90. *02 -90. )^E-9.*D3 -9. *02 + 10. ♦ D+ 1 0 . ) *X 1 ) ) ♦ Y2+ ( ( ( ( ( - 

210. *E2 ) )+(180.*0-A5.)*E-78.*D2 +39. ♦ D-100. ) *X 3+ ( 90. ♦£ ♦♦ 
3 + (((-A5.+D))+120.)*£2 +(90.*D2 - 150. *0 + 60. ) ♦E-9 . *03 +A8 

.♦D2 -80.*D + 70.)+X2 + ((195.*E3 + t ( ( -1 80 . ♦ D ) ) - 30. ) *E 2 +(20 

7. *02 +18.*D+20. )*E-36.*D3 -18. *02 -32 . *0-10. ) *X 1 ) ) ♦ Y1 ) ) 

/90. ) 

CF(1) • ((<i.*E2 *X3 + ( ( (-2.*E3 ))-(2.*E2 ))*X2-(«.*E3 *XD) 

*Y3*( ( < (-2.*E3 n + (2.*e)»*X3*(E<. +E3 -E2 -E ) * X2+ ( ( 2 . *E 

<» -(2.*E2 ))*Xl))*Y2 + ((((-<^.*E3 *X3)) + (2.*E« +(2.*E3 

) )*X2+(A.*E<» *Xin*Yl))/8. 

CF(2) • (-(((8.*E2 +( { ( <-8.*on+2. )*E ) )*X3*( ( (-2.*E3 )) + (6. 

*D-6.)*E2 *((4.*D-<».)*E))*X2*((({-6.*E3 ))+(12.*D*E2 ))* 

Xin*Y3*((((-2.*E3 n + (6.*0-l.)*E2 +2 . *E-2 . *0*1 . ) *X3 ♦ ( ( ( 
(-<..♦0) )*2. )*E3 +( ( <-3.*0) ) + 2. )*E2 ♦ { 2 . *0-2 . ) *E +0-2 . ) *X2 

+ UE‘* -8.*D*E3 -E2 + ( «. .*0*E ) ) *X 1 )) ♦ Y2 +( (I ( I -6. *E 3 )) + ( 

12.*0-2.)*E2 -(2.*E ) )*X3+(E<> ♦ ( ( ( -8 . * 0 ) ) +5 . ) *E 3 +(t(-6. 

♦On+5.)*E2 +E )*X2+( (A.*E'» -16.*D*E3 +(2.*E2 )l*Xin*Yl 

) ) /8. ) 

CF(3) • (((<i.+E2 +( ( (-16.*D» )+4. )*E+«.*D2 - ( 2. *0 ) ) *X3 ♦ ( 1 6 . * D 
-4.)*E2 +(((-6. *02 n +12.*D-4. )*E-2. *02 ♦ ( ‘r . *0 ) ) *X 2+ ( ( ( ( - 
2.*E3 ) )♦( 18 . *0 + 2. )*E2 +((((-12. *02 ) ) +<i . ) *E ) ) *X 1 )) * Y 3+ ( 

( (6.*0-l. )*£2 +(({-6. *02 ) ) + (2.*D) )*E-2.*0 + l. )*X3 + ( (6.*0* 
O-(6.*0n*E2 +(3.*D2 - ( <». *0 ) ) *£-02 + ( 2 . *0 ) ) *X2+ ( ( ( ( ( -'f. ♦ 0 
))-l.)*E3 +(12.*D2 -2.)*E2 + ( 2 . *0+1 . ) ♦ E-2 . *02 +2.)*X1)>* 

Y2+ ( ( ( ( (-2.*E3 ))+(18.*D-3.)*E2 +(((-12. *02 ))+^.*0-2.)* 

E + 2.*D-1. )*X3+( ( ( (~^.*on + 2. )*E3 +(12. *02 -15 . *0+ 2 . ) *E 2 

+ (6.*02 -10.*D + 2. )*E-0 + 2. )*X2+((E^ + ( ( (-1 6. *0 ) ) -2 . ) * E 3 

+ (2^.*02 -3.1 + E2 -(<..*0*E))*X1))*Y1) )/8. 

CF(^) . ( (((8.*0-2.)*E-8.*D2 + ( , *0 ) ) *X3+ ( (6 . *02 -(8.*D))*E- 
2. *03 +6. *02 -(^.*0) )*X2 + ( ( ( ( (-6. + 0) )-2. )*E2 +(18. *02 +^ 

.*0-<t. )*E-^.*D3 +(<t.*D) )*X1) )*Y3+( ( (6.*D2 - ( 2 . *0 ) ) *E-2 . * 

03 +02 )*X3+((^.*03 -(6. *02 ))*E+D3 -(2. *02 >)*X2+(((( 

(-6. *02 ) )-( 3.*0) )*E2 +(8.*03 - ( «. . *0 ) ) *E + 02 +0)*X1))*Y2 + 

( ( ( ( ( (-6.*0) )+l. )*E2 +(18. *02 -(6.*0) ) *E-« .*03 +2. *02 -2 

.*0 + 1. )*X3+ ( ( ( (-6.+02 ))+(6.*on*E2 +(8.*D3 -15. *02 +(4. 

*D))*E+2.*D3 -5. *02 + ( 2 . * 0 ) ) *X2+ ( ( ( <> . *0 +1 . ) *E 3 +(((-2^. 

♦02 n-6.*0+2.)*E2 +(16. *03 -6.*0+l . 1 *E-2. *02 +2.1*X11)* 

Y1 n /8. 


2522 

2523 
252^^ 

2525 

2526 

2527 

2528 

2529 

2530 

2531 

2532 

2533 
253 « 

2535 

2536 

2537 

2538 

2539 
25<f0 

2591 

2592 

2593 
2599 

2595 

2596 

2597 

2598 

2599 

2550 

2551 

2552 

2553 
2559 

2555 

2556 

2557 

2558 

2559 

2560 

2561 

2562 

2563 
2569 

2565 

2566 

2567 

2568 

2569 

2570 

2571 

2572 

2573 
2579 

2575 

2576 

2577 

2578 

2579 

2580 

2581 

2582 

2583 
2589 

2585 

2586 

2587 

2588 
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* 

* 

* 

* 

* 

* 

♦ 


c 

305 

* 

* 

* 

* 

* 

* 

* 

* 

* 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

♦ 

* 

* 

♦ 

* 

* 

♦ 

* 

* 

♦ 

* 

* 

♦ 


♦ 


* 


C 

306 

* 


♦ 


* 


* 


CF(5) • (D*( ( ( ( ( ('t.*D)-2.) ♦X3)*(2.*02 -('*.♦0) )*X2 + ( ( ( ( (-6.*D 
) )-A. )*E+6.»D2 +2.*D-^. )*X1) »*Y3)+(«2.*D2 -D)*X3+(03 -(2 

.♦02 ) )*X2+( ( ( ( (-^.♦02 ) )-(3.*0» )*E + 2.*03 -( 2 . *0 ) ) *X1 ) ) ♦ 

Y2*( ( ( ( 2-(6.*0) )*E+6.^02 - ( 3. *0 1) *X3+ ( ( 6. ♦0- ( . ^02 )) + E*2 
.♦03 -5.^02 +(2.*0 ) 1^X2*( C (6.^0 + 3. )^E2 ♦(((-16. ^02 >)-6. 

♦ 0+4 .)^E+<*.^03 -3.^0 + l. »^X1) •♦Yl > » ) /8. 

CF(6) ■ (-(02 ♦((((2.*0)+2.)^Xl^Y3)+(02 +0 ) *X l^Y 2+ ( ( ( 2 .♦O-i . 
l^X3+(02 -(2.^0) )^X2+( ( ( ( (-4.^0) )-3. ) ♦£♦^.♦02 ♦2.^0-2.)^X 
1) )^Y1) ) >/8. ) 

CF(7) • ((0+l.)^03 ♦Xl^Yl)/8. 

GO TO 350 
. 5.3 

XONDN • (-((120.^E^X3+(90.^E2 ♦ ( ( ( -60. ♦D ) ) -30 . ) ♦£ +30 . *02 -30 
.♦0-30. )^X2+ ((( (-150. ^£2 ) ) ♦ (60 . ♦ 0-30. ) ♦E-^2. ^02 +18.^D+1 
0. ) ♦Xl) )^Y3+( ( ( (-90.^E2 » )♦( ( (-60.^D) ) +15. )^E-30.^02 +15. 
♦0+60. )^X3+( ( (-95.^£3 n+95.^E2 +(((-45. ^02 ))+60.^0+30. 

)^E + 15.*02 -30.^0-30. )*X2 + ((90.*E3 ♦ ( <i 5 . ♦O + l 5 . ) ♦ E 2 +(90. 

♦02 -90.)^E + 9.^03 +9.^02 - 10. *0-1 0. > ♦X 1 ) ) ♦Y2+ ( ( ( ( ( -1 50 . ♦ 

62 ) ) ♦( ( (-60.*0) )+15. )*E-92.*02 +21 . *0-20. ) *X3 ♦ ( ( ( -90 . ♦ E* 

♦ 3 ) ) + (95.*0+60. 1*E2 +(((-90. *02 » ) ♦ ( 90. *0 ) ) *E +9. *03 +12. 

♦02 -90.*0-10. )*X2+( (165.*E3 +30.*E2 +(153. *02 -18. *0-20 

.)*E+18.*02-12.*0+10.)*Xl))*Yl))/90.) 

CF(1) • ((9. *62 *X3+(2.*E3 -(2.*E2 )1*X2-(9.*E3 ♦Xl))*Y3+( 

(((-2.*E3 )) + (2.*EU*X3 + (((-E4 )) + E3 ♦ E 2 -E ) *X2 ♦ ( ( 2 . *E 

<. -(2. *62 n*Xl))*Y2+((((-4.*E3 ♦ X3 ) » ♦ ( ( ( -2 . *E 9 )) + (2. 

♦ E3 1)*X2 + (4.*E9 ♦Xl))*YH)/8. 

CF(2) « ( ( (8. *0-2. )*E*X3+( < (-2.*E3 ) I ♦ ( 6. *0-2 . ) *E2 +((((-9. 

♦ D» )+9. )♦£ ) l*X2+( (2.*E3 -(12.*0*E2 ) ) *X 1) ) ♦ Y3 + ( ( ( ( -2 . ♦£ ♦ 

♦ 3)» + (((-6.*on+l.)*E2 +2.*E + 2.*D-1. ) ♦ X3+ ( ( ( ( -9. *0 ) ) +2 . ) ♦ 

E3 +(3.*0-2.)*E2 +(2.*0-2.)*E-0+2.>*X2+((E9 +8.*D*E3 - 

E2 -(9.*D*E))*Xl))*Y2 + (((((-2.*E3 ) ) ♦ ( ( ( -12. ♦ 0 ) ) +2 . ) *E2 

+(2.*E()*X3+(E9 ♦( ( (-8.*0))+3.)*E3 ♦ ( 6. *0-3 . ) *E 2 -E ) *X 2 

+ ((16.*0*£3 -(2.*E2 ) )*Xin*Yl) 1/8. 

CFO) ' (-(((9.*E2 -9. *02 + ( 2. *0 ) ) ♦ X3+ ( ( 6 . *0-9 . ) *E2 +(((-6.* 

02 ) )+9.*D + 9. )*E+2.*02 -(9.*0) )*X2 + ( ( ( (-2.*E3 )) + (((-6.* 

0))+2.)*E2 +((12. *02 -9.)*E))*Xin*Y3+(((6.*0-l.)*E2 +(6. 
♦02 -(2.*D))*E-2.*0+l.)*X3+((6.*02 -(6.*0))*E2 +(((-3.*D* 
0))+(9.*D))*E-D2 +(2.*0n*X2+( ((((-9.*0))-l.)*E3 +(((-12 

.♦02 ))+2.)*E2 +(2.*D + 1. )*E + 2.*02 -2 . ) ♦ XI ) ) ♦ Y2 + ( ( ( ( ( -2 . *E 

3 ) ) + (6.*0-l. )*E2 +(12. *02 -9.*0-2.)*E-2.*0 + l.)*X3 + ((((- 

9.*D) )+2. )*E3 +(12. *02 -9.*0-2.)*E2 +(((-6. *02 ))+6.*0 + 2 

.)*E+0-2.)*X2+((E9 -2.+E3 +(((-29. *02 ))+5.)*E2 +(9.*D* 

E))*Xl))*Yl))/8.) 

CF(9) • (-( ( (8. *0-2. ) *E*X3 + ( (6.*02 -(8.*0) )*E-2.*D3 +2. *02 

+ (9.*0) )*X2+ ( ( ( ( (-6.+0) )-2. )*E2 +(((-6. *02 ) ) + 9. *0 + 9 . ) *E + 
9. *03 -(9.*0))*Xl))*Y3+(((6.*02 -(2.*D))*E+2.*03 -02 )♦ 

X3+((9.*03 -(6. *02 n*E-03 +(2.*D2 ) ) *X2+ ( ( ( ( ( -6 . *02 )) 

-(3. + 0))+E2 +(((-b.*03 ) ) + (9.*0) ) + E+02 ♦ 0 ) *X 1 ) ) ♦ Y2+ ( ( ( ( ( 

(-6. + 0) ) + l. )*E2 +(6.*02 -(2.*on*E + 9.*03 -2. *02 -2. + 0+1. 

)*X3+( ( ((-6.+02 ) ) +(6.*0) )*E2 +{8.*03 -9. *02 -(9.*D))*E- 

2. *03 +3. *02 +( 2.*D ) )*X2+ ( ( (9.+0+1. )*E3 + ( ( ( -6 . *0 ) )-2 . ) 

♦ E2 +(((-16. *03 ) )+10.*0+l .)*E+2.*D2 -2. )*X1) )*Y1 ) )/8. ) 

CF(5) • (-(D+( ( ( ( ( (9.+0 )-2.)*X3)+(2. *02 -(9.*0) )*X2+( ( ( ( (-6. 

♦ 0) )-9.)*E-2.*02 +2.+0 + 9. l*Xl))*Y3) + ( (2.+02 -D)*X3 + (03 - 

(2. *02 ) ) *X2+( ( ( ( ( -9.*02 ))-(3.*0n*E-2.*03 +(2.*0))*X1) 

)*Y2+( ( ((2-(6.*0) )*E+2.*02 -0 ) *X 3+ ( ( 6. *0- ( 9 . *0 2 ))*E+2.*D 
3 -3. *02 -(2.*D) ) *X2+( ( ( 6.*0+3. ) *E2 + ( ( ( -6 . *0 ) ) -9 . ) ♦ E-9 . 

♦ 03 +5.*0 + l. )*X1) )*Y1) n/8. ) 

CF(6) • (02 ♦( ( ( (2.*0)+2. )*Xl*Y3) + (02 + 0 ) ♦ XI ♦ Y2 + ( ( ( 2 . ♦ 0-1 . ) ♦ 
X3+ (02 -(2.*0 ) )*X2 + ( ( ( ( (-9.+0) 1-3. )*E + 2.*0 + 2. )*X1) ) ♦Yl) ) ) 
/8. 

CF(7) • (-((0+l.)*D3 ♦Xl*Yl)/8.) 

GO TO 350 

. 5,5 

XONON • ( ( (290.*E-( 120.*0) ) *X3+( ( (-90.*E2 ) ) ♦ 60 . *0*E-30 . ♦ 02 
+ 60. )*X2+ ( ( ( (-210.*E2 ) ) +180.*0*E-78.*02 -100 . ) ♦ XI ) ) ♦ Y3 + ( 
(((-90.+E2 ) ) +60.*0*E-30.*02 +60 . ) *X 3+ ( 95 . *E 3 +((95. *02 

-75. ) ♦ E ) ) +X2 ♦ ( ( 90. *E 3 -95.+0+E2 +(90. *02 -60 . ) ♦ E-9 . ♦ 03 

-(5 .*0) )*X1) )*Y2 + ( ( ( ( (-210.+E2 I) + 180. ♦0*6-78. *02 -100.) + 


2589 

2590 

2591 

2592 

2593 
2599 

2595 

2596 

2597 

2598 

2599 

2600 
2601 
2602 
2603 
2609 

2605 

2606 

2607 

2608 

2609 

2610 
2611 
2612 
2613 
2619 

2615 

2616 

2617 

2618 

2619 

2620 
2621 
2622 
2623 
2629 

2625 

2626 

2627 

2628 

2629 

2630 

2631 

2632 

2633 
,2639 

2635 

2636 

2637 

2638 

2639 

2690 

2691 

2692 

2693 
2699 

2695 

2696 

2697 

2698 

2699 

2650 

2651 

2652 

2653 
2659 

2655 

2656 

2657 
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* 

* 

* 

* 

+ 

♦ 

* 

* 

* 

* 

♦ 

* 

♦ 

♦ 

* 

* 

* 

* 

*■ 

* 

* 

* 

* 

* 

* 


c 
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* 

* 

♦ 

* 

* 

* 

* 

* 

* 

♦ 

♦ 

* 

♦ 

* 

♦ 

♦ 

♦ 

* 

* 

* 

* 

* 

* 

♦ 


X3+{90.+E3 -95.+0*E2 +(90. *02 -60 . ) *E-9 . ♦ D3 -(5.*D))*X2 

+((195. *E3 -180.+D+E2 +(207. +02 +9 5 . ) ♦ E-36 . *D3 -(80. +0) 

)+Xl))*Yl))/95. 

CF(1) « (-((4.+E2 ♦X3+(((-2.*E3 ) ) + ( 2 . *E ) ) ♦ X2- ( 'i . * E 3 *X1)) 

♦Y3+( ( ( (-2.+E3 ) )+(2.*E) )+X3+(£4 -2.+E2 + 1 . ) +X 2+ ( ( 2 . *E ♦ 

*^-(2.*E2 ) )+Xl ) )+Y2+( ( ( (-4.+E3 *X3))+(2.*E^ -(2.+E2 )) 

♦ X2+(«t.+E<t +X11) +Y1 ))/<(. ) 

CF(2) « (((8.+E2 -( 8.+D+E) )*X3+( ( (-2.+E3 ))+6.*0*E2 +2.*E-( 

2. + D) ) + X2 + ( ( ( (-6. + E3 )) + 12. + 0*E2 - ( 2 . ♦ E ) ) +X 1 ) ) ♦ Y3+ ( ( ( (-2 
.♦E3 )) + 6. + D*E2 +2.*E-(2.+0n*X3+(((-«. + D*E3 ))+(4.*0*E 

))*X2+((E<t -8. + D+E3 +9. ♦D + E-1 . )*X1) )♦ Y2+( ( ( ( (-6.*E3 )) 

+ 12. + D*E2 -(2.*E)i*X3 + (E4 -8. + D*E3 + 4, . + D +E-1 . ) ♦ X2 + ( ( ^ . ♦ 

E9 -16.+D+E3 +(4.+E2 ) ) *X 1 ) ) + Y 1 ) ) / «. 

CF(3) • (-(((^.*E2 -16. + 0+E+ (4. + D2 » ) *X3 + ( 6. ♦D+E2 -6. *02 *E- 
(2.*D) ) *X2+( ( ( (-2. *E3 )) + 18.*D*E2 +(((-12. *02 ))-2.)*E + ( 

2. +D) )*X1) )*Y3+( (6.+D + E2 -6. *02 *E- ( 2 . * 0 ) ) ♦ X 3+ ( 6 . *02 *E2 

-(2. *02 ) )*X2+( ( ( (-9 .*0*E3 )) + 12.*D2 *E2 -(2. *02 ))*XD) 

♦ Y2 + ( ( ( ( (-2. + E3 ))+18.*0*E2 +(((-12. *02 ) 1 -2 . ) ♦ E + ( 2 . *0 ) ) 

*X3+ { { (-9. *D*E3 n + 12.*02 *E2 -(2. *02 >>*X2 + ((E<. -16. *0 

♦ E3 +(2<*.*D2 +2. ) *E2 -8 .*D*E + 1. ) *X1 ) ) *Y1 ) » /4. ) 

CF('H • (-( ( (4.*D*E-(9.*D2 l)*X3+(3.*D2 *E-D3 ) *X2+ ( ( ( ( -3 .* 

0*E2 11+9. *02 *E-2.*03 -0 1 *X1 1 1 ♦ Y3+ ( ( 3 . *02 *E-03 1+X3+2 

.♦03 *E*X2+( ( ( (-3.+D2 *E2 )l+(^.*03 * E 1 1 *X 1 1 1 *Y2 +((((( - 

3. *0*E2 11+9. *02 *E-2.*03 -0 1 * X 3+ ( ( ( -3 . *02 *E2 11 + (^.*D* 

*3*E 1 1 *X2+ ( ( 2. *0*E3 -12.*02*E2 +(8.*03 + ( 2 . *0 1 1 *E- ( 2 . ♦ 

02 1 1*X11 1*Y1 1 1/2. 1 

CF(51 « (-(02 ♦ ( ( ( ( 4. *X3)+2.*0*X2+ ( (6. *0-(6. *E I 1 *X1 1 I *Y3 1 + (2 
.♦0*X3+02 *X2+((2.*02 - ( ^ . *D*E 1 1 *X 1 1 1 ♦ Y2 + ( ( ( 6 . ♦ 0- ( 6. *E 1 1 ♦ 
X3+(2.*02 -(9 . *0*E 1 l*X2+( ( 6.+E2 -16 . *0 ♦ E +^ . ♦ 02 +2.I*X1I1* 
Y1 1 1 1/9. 1 

CF(6l - (03 ♦( (2.*Xl*Y3)+D*Xl*Y2+((2.*X3+0*X2+( (9.*D-( 

9. *E1 1 *X1 1 1* Y1 1 1 1/9. 

CF(71 • (-(09 *X1*Y11/9.1 

GO TO 350 

. 6,5 

XONON • ( (60.*X3-30.*E*X2+( ( ( (-60.*E I l+(6.*01 1*X1 1 l*Y3+( (60. 
♦E-60.*0-60. 1*X3+(60.*0*E-(30.*D1 l*X2+( ( ( (-30.+E2 )1+(120 
.*0+30. 1*E-18.*02 -60. *0-90. 1 *X 1 1 I *Y 2+ ( ( ( ( ( - 120. * E 1 1 +9 8 . * 
0 + 60. 1*X3 + (60.*E2 -30.*E + 29.*02 -90 . I *X 2+ ( ( 120 . * E2 +(((-9 

8. *01 1-60. l*E+98.*02 + 18 . *0 + 90. I ♦ XI I 1 * Y 1 1 1 / 95 . 

CF(11 • (-((2.*E*X3+(((-E2 n+1. 1*X2-(2.*E2 *X11 l*Y3+( ( ( (-2. 

*E2 *X311+(E3 -E 1 *X2 + ( 2.*E3 * X 1 1 1 *Y 1 1 1 / 9 . 1 

CF(21 • ( ( ( 2.*E-( 2. *01 1 *X3+2.*0*E*X2+ ( ( t (-E2 1 ) +9 . *0*E-1 . ) *X 
1) l*Y3+( (9.*E2 -(9.*E1 }*X3+( ( (-2.*E3 11+2. *E2 +2.*E-2.1* 

X2+( ( ( (-9.+E3 11 + (9.*E2 1 I *X1 II * Y2+ ( ( ( ( ( -2 . *E 2 ll + (9.*0* 
El 1 *X3 + ( ( (-3.*0*E2 1 1 + 01*X2+ ( (E3 -6.*0*E2 + E 1 *X1 1 1 * Y1 1 1 / 

9 . 

CF(31 • ( ( (2.*E + (2.*01 l*X3+(( (-E2 11 + 02 + 1 . 1 *X 2+ ( ( ( ( -2 . *E 2 1 
l-2.*0*E + (2.*02 1 1 *X11 l*Y3+( ( { (-9. *E2 1 1 + ( 8 . *0 +9 . I ♦ E- (9 . * 
0) l*X3+( ( (-6.*0*E2 1 l+9.*0*E+( 2.*0I l*X2+( (2.*E3 +(((-12. 

*011-2. 1*E2 +(8.*0 + 2. )*E-2. 1*X1) l*Y2 + ( ( ( 2.*E2 +(((-9. *011 
-9. 1*E + (2.*D2 ll*X3+(((-£3 11+2. *E2 +(((-3. *02 11+1.1*E- 

2. l*X2+((((-2.*E3 1 l + (3.*0 + 9. l*E2 -6. *02 *E + 0 1 *X1 1 1 *Y1 1 1 

/9. 

CF(9) » (-(((2.*E-(2.*0n*X3+2.*D*E*X2+((((-E2 ll+9.*0*E+02 
-l.l*Xlll*Y3+((8.*D*E-9.*02 -(9 .*0 1 1 *X3+ (6. *02 *E-(2.*02 
) 1*X2+ ( ( ( (-6.*0*E2 )1 + (12.*02 + ( 9. *0 1 I ♦ E-9 . *02 -(2.*D11*X 
11 l*Y2 + ( ( (2.*E2 +( ( (-9.*0I 1-9. I*E + 2.*D2 + ( 9 . *0 1 1 * X3+ ( 3 . *0 
*E2 -9.*0*E+D3 -0)*X2+((((-E3 1 ) + ( 6. *0+2 . 1 *E 2 +(((-3.*0 

*01 l-8.*0-l. l*E + 2.*03 +2. )*X1) )*Y11 ) /9. I 

CF(51 • (-(0*((((2.*X3)+0*X2+((2.*0-(2.*EI1*X1I1*Y3I+(9.*0*X 

3 + 2. *02 *X2 + ( ( ( (-6.*0*E) )+9.*02 + ( 2. *0 1 1 * XI 1 1 * Y2 + ( ( ( 9 . *E- 
2. *0-9. 1*X3+ (3.*0*E-(2.*01 l*X2 + ( ( ( (-3. + E2 1 1 + ( 6 . *0 +9 . 1 * E- 
02 -9.*0-l.l*Xlll*Yl)Il/9.) 

CF(61 • (02 *( ( X1*Y3 1 +2.*0*Xl*Y2+( ( ( (-2.*X3 1 l-0*X2+( (3.*E 

-2.*0-2. 1*X11 1*Y11 1 1/9. 

CF(71 • (03 *Xl*Yll/9. 

GO TO 350 
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c 

308 


C 

350 


. 7,5 

XDNDN • ( ( 120.*E*X3+ ( ( <-90.*E2 ) ) -60 . ♦D* E-30 . *02 +60.)*X2+(( 

♦ ((-150. *E2 ) )-60.*D*E-^2.*D2 -20. ) *X1 ) ) *Y3+ ( ( 90. *E2 -60.* 

♦ D*E+30.»D2 -60. )+X3+ ( ( (-95.+E3 »1 ♦( ( ( ( -95 . *02 ))+75.)*E) 

♦ )*X2*- ( ( ( (-90. *E3 ))+95.*0*E2 +(((-90. *02 ) ) +60 . ) *E +9 . *0* 

♦ *3+(5.*D) )*X1) )*Y2+( ( (< (-150.*E2 ) ) ♦ 60 . *0 +E-92 . *02 -20.)* 

♦ X3+(90.*E3 +95.*D*E2 +(90. *02 -60 . ) *E +9. *03 +(5.*0))*X2 

♦ +((165. *E3 +(( 153. *02 +25 . ) *E ) ) ♦ X 1 ) ) ♦ Y 1 ) ) /9 5 . 

CF(1) ■ (-((9.*E2 *X3+(((-2.*£3 ) ) ♦ ( 2. *E ) ) *X2- ( 9 . ♦ E3 *X1)) 

♦ *Y3+((2.*E3 -(2.*E))*X3 + (((-E9 ) ) + 2 . ♦ E2 - 1 . ) ♦ X2 + ( ( ( ( -2 . 

♦ *E9 ))+(2.*E2 I )*X1) )*Y2+( (<(-9.*E3 *X3))+(2.*E9 -(2.* 

♦ E2 ))*X2 + (9.*E9 *X1) )*Y1 ) ) /9. ) 

CF(2) • (-( ( 8.*0*E*X3+( < (-2.*E3 »)-6.*0*E2 +2 . *E + ( 2 . * 0 ) ) * X2 

♦ +((((-2.*E3 ))-12.*D*£2 + ( 2 . *E )) ♦ XI ) ) * Y3+ ( ( ( ( -2 . *E 3 ))+ 

♦ 6.*0*E2 +2.*E-(2.*0) ) *X3+( ( (-9.*0*E3 ) ) + ( 9 . *0* E ) ) ♦ X2 + ( ( E 

♦ 9 -8.+0+E3 +9.*0*E-1. )*X1) )*Y2+( ((2.*E3 -12.*0*E2 -(2. 

♦ *E))*X3+(E9 +8.*0*E3 -9.*0*E-1 . ) *X2+ ( 16 . *0*E3 *X1))*Y1 

♦ ) ) /9. ) 

CFO) • (((9. + E2 -(9. *02 ) ) *X3 + ( 6 . *0* E 2 +6. *02 *E-( 2. *0) ) *X2 

♦ +((((-2.*E3 )) + 6.*D+E2 +(12. *02 -2. ) ♦£-( 2. *0 ) ) *X1 ) ) *Y3+ ( 

♦ (6.*0*E2 -6. *02 *£-(2.*0) )*X3+(6.*D2 *E2 -(2. *02 ))*X2+(( 

♦ {(-9.*0*£3 ))+12.*02 *E2 -(2. *02 ) ) *X 1 ) ) *Y 2+ { t ( ( (-2 . *E+* 

♦ 3))-6.*D*£2 +(12. *02 -2 . ) *E + ( 2 . *0 ) ) ♦ X3 + ( ( (-9. *0*E 3 ))-12 

♦ .*02 *E2 +(2.*02 ))*X2+((E9 +(((-29. *02 ))+2.)*E2 +1.)*X 

♦ l))*Yl))/9. 

CF(9) ■ ( (9.*D*E*X3+(3.*02 *E+03 ) *X2+ ( ( ( (-3 . *D*E 2 ))+3.*0* 

♦ 0*E+2.*03 -0)*X1) )*Y3+((3.*02 *£-03 )*X3+2.*03 *E*X2+( 

♦ (((-3. *02 *E2 )) + (9.*03 *E ) ) * XI ) ) ♦ Y2+ ( ( ( ( ( -3 . *0*E 2 ))-3. 

♦ *02 *E+2.*03 -0)*X3+( ( (-3.+02 *£2 ))-(9.*D3 *E))*X2+((2 

♦ .*D*E3 +((((-8. *03 ) ) + ( 2.*0) )*E ) )*X1 ) )*Y1 ) ) /2. 

CF(5) • (02 *( ( ( (9.*X3) +2.*D*X2+( (2.*D-( 6. *E) ) *X1) ) *Y3) +( 2.* 

♦ 0 + X3 + 02 *X2+((2.*D2 - ( 9 . *0*E ) » * X 1 ) ) * Y2+ ( ( ( ( ( -6 . ♦ E ) ) - ( 2 . ♦ 0 

♦ ))*X3+(((-9.*0*E))-(2.*D2 ) ) *X2+( ( 6.*E2 -9. *02 +2.)*X1))* 

♦ Yl)))/9. 

CF(6) • (-(03 *((2.*X1*Y3)+0*X1*Y2+((2.*X3+0*X2-(9.*E*X1))* 

♦ Yl)))/9.) 

CF(7) « (09 *Xl*Yl)/9. 

. ENO OF COMPUTED GO TO. 

CONTINUE 

SUML • CF (7)*(2,*(G6+5.*G9*F2 + 3.*G2*F9 + F6/7. )*EL1 + 2./7.*DL2 

♦ +2.*(F6+5.*F9*G2+3.*F2*G9+G6/7.)*4tOG3 

♦ -(30.*T6+10.*T9+6.*T2)/105.) 

♦ + CF(6)*(((F6+G6-1.)/3.+5.*F2*G2*(F2+G2))*DL1 

♦ +2. *( F9 + 10.*F2*G2/3.+G9)*FL3 - ( 1 5. ♦ T5 + 5 . ♦ T 3 + 3 . * T 1 ) /95 . ) 

♦ + CF(5)*(2.*(G9 + 2.*F2*G2 + F9/5. )*EL1 +2./5.*DL2 

♦ +2.*( F9 + 2. *F2*G2 + G9/5. )*AL0G3 - ( 6 . *T9 + 2 . *T 2 ) / 1 5 . ) 

♦ + CF(9)*(((F9+G9-l.)/2.+3.*F2*62)*DH +2. * ( F 2 +G2 ) *FL 3 

♦ -( 3.*T3+Tl)/6. ) 

♦ + CF(3)*(2./3.)*((F2+3.*G2)*EL1 + DL 2 + ( 3. ♦ F2 + G2 ) * AL OG3 -T2) 

♦ + CF(2)*( (F2 + G2-1. )*DL1 +2.*FL3 -T1 ) 

♦ + CF ( 1 )*2.*( EL1+0L2+AL0G3) 

XDNDN • -XDNDN/Z3 + SUML/Z2 
RETURN 

END 
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0VERLAY(MAIN,11,0) 2780 

PROGRAM 0UAD9 2781 

^tk^i^*^^************^******^^********* ******************* ****^**A' 2 782 

2783 

THIS PROGRAM EVALUATES C-INTEGRALS FOR NONTRAPEZOI DAL FINITE 2789 

ELEMENTS WITH NSF ■ <3. 2735 

2786 

THE DO LOOPS ENDING AT STATEMENTS NUMBERED 3 AND 9 CARRY OUT 2787 

GROUP TRANSFORMATIONS. 2788 

2789 

^^^t*i^^*;^^*******t^^if^^*****^^*^^^^*^^*^^**** ****************** t** 2 79 0 

C 2791 

DIMENSION LC(1),KC{1) 2792 

CQMMON/SPACE /XC ( 110)» IC>SKIP(6)»IXC»SKP(2)» 2793 

♦ XXI, XX2» XX 3>YY1>YY2»YY3# 221/222/ 223»ALG1> A LG2/ALG3/0TH£RS(1) 2799 

COMMON/TEMP/Uz I2/I3/I9/K/L/X1/X2/X3/Y1/Y2/ Y3/21/22/Z3/ 2795 

♦ ALOGl/ AL0G2/ AL0G3/ IL/ IU» LL/I/ J/O/DPl/ DM1/D2/ D3/ 2796 

♦ E/E,P1/EM1/E2/E3/FF/F2/F9/F6/6/G2/G9/G6/ 2797 

♦ Tl/ T2/ T3/ T9/T5/T6/ 2798 

♦ DL1/EL1/DL2/FL3/XJ 2799 

EQUIVALENCE (KC I 1 ) / XC ( 1 ) ) / I LC ( 1 ) / XC «1 ) ) 2800 

C 2801 

C 2802 

XI • XXI 2803 

X2 - XX2 2809 

X3 • XX3 2805 

Y1 • YYl 2006 

Y2 • YY2 2807 

Y3 ■ YY3 2808 

Z1 • ZZl 2809 

Z2 • ZZ2 2810 

Z3 « ZZ3 2811 

ALOGl • ALGl 2812 

AL0G2 • ALG2 2813 

AL0G3 • ALG3 2819 

IL • IXC + 37 2815 

lU « IXC + 95 2816 

LL - 0 2817 

DO 9 I-1/2 2818 

DO 3 J»l/9 2819 

LL ■ LL + 1 2820 

D • Z2/Z3 2821 

DPI » 0 ♦ 1. 2822 

DM1 • D - 1. 2823 

02 • DAD 2829 

D3 • 0*02 2825 

E • -Z1/Z3 2826 

EPl • E ♦ 1. 2827 

EMI - E - 1. 2828 

E2 ■ E*E 2829 

E3 • E*E2 2830 

FF • Z1/Z2 2831 

F2 • FF*FF 2832 

F9 • F2+F2 2833 

F6 « F2AF9 2839 

G ■ Z3/Z2 2835 

G2 « G+G 2836 

G9 • G2*G2 2837 

G6 • G2AG9 2838 

C . T'L' * (Z2/Z3)*(((Z1+Z3)/Z2)**L - ( ( Z 1-Z 3 ) / Z2 ) ♦♦! ) 2839 

Tl • 2. 2890 

T2 • 9.AFF 2891 

T3 « 2.+G2 + 6.*F2 2892 

T9 • 8.*FF*(G2+F2) 2893 

T5 » 2.9G9 ♦ 20.*G2*F2 + 10.+F9 2899 

T6 • 2.*FF*T3*(3.*G2+F2) 2895 

DLl - D+ALOGl 2896 

ELI • -E*AL0G1 2897 
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DL2 ■ 0+AL0G2 28^8 

FL3 • FF*AL0G3 2849 

DO 2 I1«IL»IU 2850 

12 • II ♦ IC 2851 

13 • 12 ♦ IC 2852 

14 • 13 ♦ IC 2853 

K • KCmi - 8 2854 

L * LC (12) 2855 

C IF (L.EQ.LL) 2856 

IF(L.NE.LL) go to 1 2357 

C THEN 2858 

XC(Il) • -XDNDN(Y1,Y2.Y3.Y1»Y2»Y3) 2859 

XC(I2) • XDNDN(X1,X2.X3»Y1,Y2»Y3) 2860 

XC(I3) - XDN0N(Y1,Y2. Y3»X1»X2,X3) 2861 

XC(I4) ■ -XDN0N(X1,X2*X3>X1,X2>X3 ) 2862 

1 CONTINUE 2863 

2 CONTINUE 2864 

C . TRANSFORMATION OF TYPE ONE. 2865 

XI « -XI 2866 

XO • X2 2867 

X2 • -X3 2868 

X3 ■ XJ 2869 

Y1 - -Y1 2870 

XJ • Y2 2871 

Y2 ■ -Y3 2872 

Y3 « XJ 2873 

XJ . Z2 2874 

Z2 ■ Z3 2875 

Z3 ■ -XJ 2876 

ALOGl • -ALOGl 2877 

XJ • AL0G2 2878 

ALQG2 » -AL0G3 2879 

ALDG3 • XJ 2880 

3 continue 2881 

C . TRANSEORMATION of type two. 2882 

X3 • -X3 2883 

Y3 • -Y3 2884 

Z3 • -Z3 2885 

ALOGl • -ALOGl 2886 

AL0G2 • -AL0G2 2887 

4 CONTINUE 2888 

END 2889 
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FUNCTION XONDN( XI, X2,X 3, Y1,Y2,Y3) 


THIS SUBROUTINE IS CALLED BY THE PROGRAM OUA09 TO EVALUATE 
C-INTEGRALS. 


C 


C 


C 

309 


CQMM0N/TEMP/I1,I2,I3,IA,K,L,XY(6),Z1,Z2,Z3, 

♦ AL0G1,AL0G2,AL0G3,IL,IU,LL»I,J,D,DP1,DM1,02,D3, 

♦ E,EP1,EM1,E2,E3,FF,F2,FA,F6,G,G2,GA,G6, 

♦ T1,T2,T3,T9,T5,T6, 

♦ DLl, ELI, DL2, FL3,SUML,CF ( 7) 

D2 « D*D 

D3 • D*D2 

DA « D*D3 

E2 • E*E . 

E3 • E*E2 
EA . E*E3 
SUML • 0. 

GO TO (309,310,311 ),K 

. 9,1 

XDNON - (-<< (120. *£-29. ♦0+12. )*X3+(((-60.YE2 ) ) -60 . *E-12 . ♦ D* 
+ D+2A.»D-20. )YX2>( ( ( (-120.*E2 ) ) ♦ ( 2 A . ♦ D+ 12 . ) ♦ E-2 A . *D 2 -16. 

♦ )*Xin +Y3+ ( ( 60.*E2 ♦( ( (-120.*0) )+ 30. I+E+36. ^02 -18.*D-A0. 

♦ )*X3+( (90.*D-60. )*E2 + ( 60. +D-60 . ) ♦£ + 1 8 . *D3 -36. *02 -20.* 

♦ O+AO. ) *X2+ ( ( ( (-30.+E3 ))*180.*D*E2 ♦(((-5A.*02 ))-36.*0+ 

♦ 20. )*E + 36. + 03 -(76.»0n* XI n*Y2+ ( ( ( ( (-180. *E2 ))+(120.tD 

♦ -30. 1 *£-60. *02 +(30.+D) )*X3+(90.*E3 +90.*E2 ♦(90.*D2 -(1 

♦ 20. *0 n ♦E + 30.YD2 -(60.*0 n*X2+ ( ( 180. *E3 ♦ ( ( ( -90 . *D ) ) -30 . 

♦ ) + E2 +(180. + 02 -60. )*E-18.*03 -18.+D2 +8 . ♦ D + 8 . ) *X 1 ) ) *Y 1 ) 

♦ )/A5.) 

CF(1) • ((2. + E2 *X3 + (((-E3 ))-E2 )*X2-(2.»E3 ♦ X 1 ) ) ♦ Y3+ ( ( ( ( 

♦ -2.*E3 ♦X3))+(EA +E3 )*X2+(2.*EA ♦ X 1 ) ) » Y1 ) ) /2 . 

CF(2) ■ (-(((2.*E2 ♦((((-A.*0))+1.)*E))*X3+((3.*D-2.)*E2 +(( 

♦ 2.*0-2. )♦£ n*X2+( ( ( (-E3 ))+(6.*D*E2 ) ) ♦ X 1 ) ) ♦ Y3+ ( ( 2 . ♦ E 3 

♦ -(2.*E ) )*X3+( ( (-EA n-E3 +E2 +E ) *X 2+ ( ( ( ( -2 . *E A )) + (2.* 

♦ E2 ) )*X1) l*Y2 + ( ( ( ( (-2. + E3 >) ♦ ( (6. ♦D-1 . ) *E2 ) ) *X3+ ( ( ( (-A. 

♦ ♦D))+2.I*E3 +((((-3.*D»)+2.)*E2 ))*X2+((EA -(8.AD*E3 ) 

+ l*Xin*Yin/2. ) 

CF(3) • (-(((2.*E2 +( A.+D-l. )*E-2.*D2 ♦ D ) *X 3+ ( ( ( -E 3 ) )-E2 ♦ 

♦ (3. *02 -(A.*D))*E+D2 -( 2 . *0 ) ) *X2+ ( ( ( ( -2 . ♦ E 3 ))+(((-3.*D) 

♦ )-l. )*E2 ♦( (6.*02 -2. )+E) »»X1) )+Y3+( ( ( (-2.+E3 ))+(6.*0-l 

♦ .)*E2 +2.+E-2.*D + l.)*X3 + ((((-A.*D))+2. )*E3 + ( ( ( - 3. +D ) ) + 2 

♦ .)*E2 + ( 2.+D-2. ) *E +D-2. )*X2+( (EA -8.+D+E3 -E2 +(A.*D*E) 

♦ )*Xin ♦Y2+( ( ( ( ( (-6.*D))+1. )*E2 +((6.*02 -2 . *D-2 . ) *E ) ) *X3+ 

♦ ((((-6.*D2 ) )+6.*D + l.)*E2 +((((-3. *02 ) ) + A . *D + 1 . ) *E ) ) *X2 + 

♦ ( ( (A.AD + 1. ) + E3 +((((-12. *02 ))+A.)*E2 ) ) *X 1 ) ) ♦ Y 1 ) ) / 2 . ) 
CF(A) - (((2.+E2 +(((-A.*D))+l.)»E-2.*02 + D) ♦ X 3 + ( ( 3 . *0-2 . ) +E 

♦ *E+(2.*D-2. )*E-D3 +(2.*02 ) ) *X2 + ( ( ( ( -E 3 ))+6.*0*E2 +(3. 

♦ *02 +(2.*0n*E-2.*D3 + ( 2 . *0 ) ) +X 1 ) ) *Y 3+ ( ( ( 6 . *D-1 . ) *E2 +(( 

♦ (-6.*D2 ) ) +(2.*D) )*E-2.*0+l. )*X3+( (6.*D2 -(6.*D))*E2 +(3. 

♦ ♦D2 -(A.*DI)*E-02 +(2.*D))*X2+(((((-A.»D>)-l.)*E3 +(12.* 

♦ 02 -2.)*E2 +(2.*D+1. )*E-2.*D2 +2 . ) ♦ XI ) ) ♦ Y 2+ ( ( ( (6 . *D2 -2.* 

♦ 0-2. )*E-2.*D3 +02 +2 . *0- 1. ) *X3+ ( ( A. *0 3 -6. *02 -2. *0+2.) 

♦ *£+03 -2. + 02 -0 + 2.)*X2 + (((((-6.*D2 ) ) -3 . *0 +1 . ) *E2 +((8.* 

♦ 03 -(8.*on*En*xi))*Yin/2. 

CFO) ■ ((((A.*0-l.)*£-2.*02 +0) *X3+ ( ( 3 . *02 -( A. *0) ) *E + 02 -( 

♦ 2.*0n*X2 + ( ( ( ( (-3.*on-l. )*E2 +(6.*D2 -2.)*E+D3 +02 )*X1 

♦ ))*Y3+(((6.*D2 -(2.*0n*E-2.*03 +02 )*X3 + ((A.*D3 -(6.*D 

♦ *D))*E+D3 -(2. *02 ))*X2+(((((-6.*D2 ) ) -( 3 . *0 ) ) *E2 +(8.*D 

♦ 3 -(A.*D) )*E + D2 +D)*X1))*Y2+(((2.*D3 -02 -2. *0 + 1 . ) *X3 + ( 

♦ DA -2. *03 -02 +(2.*0n*X2 + ( ( ( ( (-A.*D3 ))-3.*02 +2. *0 + 1 

♦ .)*E + 2.*DA -A.*D2 +2 . ) ♦ X 1 ))♦ Y 1 ) ) / 2 . 

CF(6) * ( D*( ( ( ( ( (2.*D)-1. )*X3)+(D2 -(2.*D) )*X2+( ( ( ( (-3.*D) )- 

♦ 2.)*E + 2.*D2 -2. )*X1) )*Y3) ♦( (2.*D2 -D)*X3+(D3 -(2. *02 ))* 

♦ X2+ ( ( ( ( (-A.*D2 ))-(3.*0))*E+2.*03 - ( 2 . *0 ) ) *X1 ) ) * Y2 ♦ ( ( ( (- 

♦ 03 n-02 +D + l.)*Xl*Yl)))/2. 

CF(7) • (-((D+1.)*D2 *Xl*(Y3+(D*Y2)))/2.) 

GO TO 350 


2890 
289 1 

2892 

2893 
289A 

2895 

2896 

2897 

2898 

2899 

2900 

2901 

2902 

2903 
290A 

2905 

2906 

2907 

2908 

2909 

2910 

2911 

2912 

2913 
291A 

2915 

2916 

2917 

2918 

2919 

2920 

2921 

2922 

2923 
292A 

2925 

2926 

2927 

2928 

2929 

2930 

2931 

2932 

2933 
293A 

2935 

2936 

2937 

2938 

2939 
29A0 
29A1 
29A2 
29A3 
29AA 
29A5 
29A6 
29A7 
29A8 
29A9 

2950 

2951 

2952 

2953 
295A 

2955 

2956 

2957 

2958 

2959 

2960 
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c 

310 

* 

* 

* 

* 

♦ 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


c 

311 

♦ 

♦ 

* 

* 

* 

4 > 

♦ 

* 

♦ 

<< 

* 

* 

* 

* 

* 

t 

* 

* 

* 

* 

* 

* 


c 


. 9»5 

XONDN • ( ( (2^0.*E-( <i8.*D) )*X3+ ( ( (-120. *E2 ))-2«.*D2 +80.)*X2 
+ ( ( ((-2'iO.*E2 ) )+<.8.*D*E-‘i8.*D2 -80. ) ♦ X 1 ) ) ♦ r 3+ ( ( 120 . *E 2 - 
2A0.*D*E + 72. *02 -80 . ) *X 3-M 180. *D*E2 +36. *03 -d00.*D))*X 

2+( ( ( (-60.*E3 ) )+360.*D*E2 ♦( ( (-108.*D2 ) ) -20. ) ♦ E *72 . *0* 

♦ 3-(80. *0) )*X1 ) ) *Y2+ ( ( ( ( (-360. *E2 ) ) * 2<t0. *D*E- ( 120 . *02 )) 

♦X3+(180.*E3 +((180. *02 -180 .»♦£)>♦ X2 ♦(( 360. *E3 -180. *0 

♦E2 +360. *02 *E-36.*03 - < 44. *0 ) ) *X 1 ) ) ♦ Y1 ) ) / . 

CF(1) • (((-2.+E2 ♦X3))+(£3 -E )♦ X2+ ( 2 . *E 3 *X1 ) ) *Y3+( 2 . *E** 

3*X3+<((-E4 n + £2 >*X2-<2.*E4 *Xin*Yl 
CF(2) • ((2.+E2 -( 4.*D*E ) (*X3+(3. *D*£2 -0 ) *X 2+ ( ( ( ( -E 3 ))+6. 

♦ D*E2 -E)*Xin*Y3+((2.*E3 - ( 2 . *E ) > ♦ X 3+ ( ( ( -E 4 ))+2.*E2 - 

l.l*X2+((((-2.*E4 ))+(2.*E2 I ) *X1 ) ) ♦ Y2 + ( ( ( ( -2 . *E 3 ))+(6 

.♦D*E2 ) )*X3+( ( (-4.*0*E3 1) + < 2 . *D*E > ) ♦ X2+ ( ( E4 -8.*D*E** 

3 + E2 )*Xin*Yl 

CF(3) • ((2.+E2 +4.*0*E-(2.*02 ))*X3+(((-E3 ))+((3.*D2 +1.) 

♦ E))*X2+( { ( (-2. + E3 ))-3.*0*E2 +6. *02 ♦ E-D ) * X 1 ) ) * Y3+ ( ( ( ( - 

2.*E3 l)+6.*0*E2 +2.*E-(2.*0))*X3+(((-4.*0*E3 ))+(4.*D* 

E))*X2+((E4 -8.+D+E3 +4 .*D*E-1 . ) *X1 ) ) *Y2+ ( ( { (-6. *D*E2 ) 

)+((6.*D2 -2. )*E ) ) *X3+( ( ( (~6.*D2 ))+l.)*E2 +02 -l.)*X2+(( 
4.*D*E3 +(((-12. *02 ))+2.)*E2 + ( 2. * 0+ E ) ) ♦ XI ) ) ♦ Y 1 

CF(4) • ((((-2.+E2 ) ) +4.*D*E+(2.*02 ) ) ♦ X 3+ ( ( ( -3 . *0*E 2 ))+0** 
3 + 0)*X2+((E3 -6.*0*E2 +(((-3. *02 » ) + 1. ) ♦ E + ( 2 . *0 3 ))*X1) 

)*Y3+((((-6.*0*E2 ))+6.*D2 ♦ E + (2 . *0 ) ) ♦ X 3+ ( ( ( -6 . ♦ 02 *E2 )) 
+(2.*02 ))*X2+((4.*0*E3 -12. *02 *E2 +(2.*02 ))*Xl))*Y2+( 

(((('6. *02 ))+2.)*E+2.*03 - ( 2. *0 ) J *X 3+ ( ( ( -4 . *03 ))+(2.* 

0) )*E*X2+( ( (6.*02 -l.)*E2 +(((-8. *03 ) ) + ( 4 . *0 I ) *E + 02 -1. 

)*X1) )*Y1 

CF(5) • (-0*( ( ( ( ( (4.*E )-(2 .*0) )*X3 )+3.*0*E*X2+( { ( (~3.*E2 ))♦ 
6.+0+E+D2 -l.)*Xl))*Y3)+((6.*D*E-(2.*02 ))*X3+4.*02 *E*X2 
+((8.*D2 *E-(6.*0*E2 ) ) ♦ X 1 )) ♦ Y2+( ( 2 . *02 -2.)*X3+(03 -0)* 

X2+(((2-(4.*02 n*E + 2.*03 - ( 2. *0) ) * XI ) ) ♦ Y1 ) ) 

CF(6) • (-02 ♦((((2.*X3)+D*X2+((2.*D-(3.*E))*Xl))*Y3)+(2.*0* 
X3+02 *X2+((2.*02 -( 4.*0*E))*Xl))*Y2+(l-02 )*X1*YD) 

CF(7) • 03 *X1*( Y3+D*Y2 » 

GO TO 350 
. 9,9 

XONON • ( (384.*E*X3-192.*0*E*X2+( (((-480.+E2 l)-96.*02 -64.) 
*Xl))*Y3+(((-192.*0*E*X3) )+(240.*£3 +((432. *02 -400. )*E) 

)*X2+( (720.*0*E2 +144. *03 - ( 304. *0 ) ) *X 1 ) ) * Y2+ ( ( ( ( ( -480 . * 

E2 ))-96.*02 -64.)*X3+( 720.*0*E2 +144. *03 - ( 304 .*0 ) ) ♦ X 2 + 

((720. *E3 +((720. *02 -240. ) *E ) )* XI ) ) ♦ Y 1 ) ) / 45 . 

CF(1) • (((-4.*E2 *X3)) + (4.*E3 * XI ) ) ♦ Y3 + ( 4 . *E 3 *X3-(4.*E** 

4*X1 ) )*Y1 

CF(2) • ( ( (-8.*0*E*X3) )+(4.*E3 - ( 4. *E ) ) *X 2+ ( 12 . *0*E2 *X1))* 

Y3+((4.*E3 -(4.*E) )*X3+( ( ( (-4.*E4 ))+(4.*E2 ))*X1))*Y2+ 

(12.*D*E2 *X3+( ( (-4.*E4 )) + (4.*E2 ) ) *X2-( 16. *0*E 3 *XD) 

*Y1 

CF(3) - ((8.*E2 -(4. *02 ) ) * X3+ ( 12 . *0*E 2 - ( 4. *0 ) ) *X 2 + ( ( ( ( -4 . * 
E3 )) + ((12.*D2 -4.)*E))*Xin*Y3+((12.*D*E2 - ( 4 . ♦ 0 ) ) *X 3+ ( 
((-4.*E4 ))+8.*E2 -4.)*X2+((((-16.*0*E3 ) ) + ( 8 . * 0* E ) ) * XI 

) )*Y2+((((-4.*E3 ))+((12.*02 -4.)*£))*X3+(((-16.*0*E3 ) 

)+(8.*0*E) )*X2+( ( ( (-24.*D2 ))+8.)*£2 *X1))*Y1 
CF(4) • ( 16.*0*E*X3+( ( (-4.*E3 ))+((12.*D2 +4 . ) *E ) ) * X2 + ( ( ( (- 

12.*0*E2 ))+4.*03 -(4.*0)l*Xl))*Y3+((((-4.*E3 ))+((12.* 

02 +4. 1*E) )*X3 + ( ( (-16.*0*E3 ) ) + ( 1 6. *0 *E ) ) *X2+ ( ( ( ( ( -24 . *0 

*D))+4.)*E2 +4. *02 -4.)*Xl))*Y2+((((-12.*0*E2 ))+4.*03 - 

(4.*D)l*X3+((((-24.*02 ))+4.)*E2 +4. *02 -4. ) *X2+ ( ( ( (-16. * 

03 ) ) +(16.*0) )*E*X1) )*Y1 

CF(5) • (-4.*(((((E2 -(2. *02 ) )*X3 )+ (3. *0*E2 -03 -0)*X2 + ((3 

.*02 -l.)*E*Xl))*Y3(+((3.*0*E2 -03 -0 ) * X3+ ( 6 . *02 *E2 -(2 

.♦02 ) )*X2+( (4.*03 -(2.*0) )*E*X1 ) )*Y2+( ( 3.*D2 -l.)*E*X3+ 

(4. *03 -(2.*D))*E*X2 + ((04 -2 . ♦ 02 + 1 . ) *X 1 ) ) * Y 1 ) ) 

CF(6) • (-4.*0* ( ( ( (2.*E*X3)+3.*0*E*X2+( (02 -1. )*X1) )*Y3) +(3. 
*0*E*X3 + 4.*02 *E*X2+((03 -0 ) *X 1 ) ) * Y2+ ( ( 0 2 -l.)*X3+((D3 

-0)*X2) )*Y1) ) 

CF(7) • (-4. *02 *(X3+(0*X2))*(Y3+0*Y2>) 

ENO OF COMPUTEO GO TO. 


2961 

2962 

2963 

2964 

2965 

2966 

2967 

2968 

2969 

2970 

2971 

2972 

2973 

2974 

2975 

2976 

2977 

2978 

2979 

2980 

2981 

2982 
298 3 

2984 

2985 

2986 

2987 

2988 

2989 

2990 

2991 

2992 

2993 

2994 

2995 

2996 

2997 

2998 

2999 

3000 

3001 

3002 

3003 

3004 

3005 

3006 

3007 

3008 

3009 

3010 

3011 

3012 

3013 

3014 

3015 

3016 

3017 

3018 

3019 

3020 

3021 

3022 

3023 

3024 

3025 

3026 

3027 

3028 
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350 CONTINUE 3029 

SUML ■ CF(7)+(2.*(G6+5.*6^*F2+3.*G2*F<i+F6/7.)*ELl ♦ 2./7.*0L2 3030 

♦ +2.*( F6 + 5.*F<(*G2 + 3.«F2*G4 + G6/7.)*AL0G3 3031 

♦ -(30.*T6+10.*TA+6.*T2) /105.) 3032 

♦ ♦ CF(6)*(((F6+G6-l.)/3.+5.*F2*G2*(F2+G2))*0Ll 3033 

♦ +2.»(FA + 10.*F2*G2/3.+GAJ*FL3 -(15.*T5 + 5.*T3 + 3.*T1)/A5. I 303A 

♦ ♦ CF(5)*(2.*(G^+2.*F2*G2+F4/5.)*EL1 +2./5.*0L2 3035 

♦ +2.*(F<V + 2.*F2*G2 + GA/5. )*AL0G3 -<6 . *TA + 2 . *T2 ) / 15. ) 3036 

♦ + CF(^)*({(F^ + G<*-1.)/2.*3.*F2+G2)*DL1 +2 . ♦ ( F 2+G2 ) *FL 3 3037 

-(3.fT3+Tl)/6.) 3038 

+ CF(3)*(2./3.)*((F2+3.*G2»*EL1 +DL2 ♦ ( 3 . ♦ F2 +G2 ) ♦ AL QG 3 -T2) 3039 

♦ ♦ CF(2)*((F2+G2-1. )*0L1 +2.*FL3 -Tl) 3040 

♦ + CF(1 )*2.*(EL1+DL2+ALQG3) 3041 

XDNDN . -XDN0N/Z3 + SUML/Z2 3042 

RETURN 3043 

END 3044 
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0VERLAY(MAIN,12/0) 

30A5 


PROGRAM SGPM 

30A6 


logical SMFLAG^SPFLAG 

SO*.? 


COMMON/SPACE/SPACE{ 27), SMFLAG»SPFLAG. OTHERS (1) 

30A8 

c 


30A9 

c 


3050 


CALL LINSTF 

3051 


IF (SPFLAG) 

3052 

c 

THEN 

3053 


♦ CALL LODVEC 

3059 

c 

CONTINUE 

3055 


IF (SMFLAG) 

3056 

c 

THEN 

3057 


♦ CALL MASS 

3058 

c 

CONTINUE 

3059 


END 

3060 
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SUBROUTINE LINSTF 3061 

C 3063 
C THIS SUBROUTINE CALCULATES THE LINEAR STIFFNESS MATRIX SS 306A 
C AND The GEOMETRIC STIFFNESS MATRIX SG FOR AN ISOLATED 3065 
C DOUBLY-CURVED SHALLOW SHELL ELEMENT. 3066 
C 3067 
C THE NUMBER OF DEGREES OF FREEDOM PER NODE IS FIVE. 3068 
C NSF IS THE NUMBER OF SHAPE FUNCTIONS PER ELEMENT. 3069 
C NNE IS THE NUMBER OF ♦NODAL* SHAPE FUNCTIONS PER ELEMENT. 3070' 
C THE QUANTITIES STORED IN POSITIONS 1 THRU 21 OF COMMON ARE THE 3071' 
C MATERIAL STIFFNESS COEFFICIENTS. THE FIRST SIX OF THESE 3072' 
C QUANTITIES ARE THE EXTENSIQNAL STIFFNESSES OF THE SHELL. THE 3073 
C NEXT SIX ARE THE STIFFNESS INTERACTION COEFFICIENTS, THE NEXT 307<r 
C SIX ARE THE BENDING STIFFNESSES, AND THE LAST THREE ARE THE 3075 
C TRANSVERSE SHEAR STIFFNESSES. 3076 
C EN1,EN2,EN12 ARE THE PRESTRESS COEFFICIENTS. 3077 
C USE CURVE • .TRUE. IF THE CURVATURE IS NONZERO. 3078 
C USE CURVE • .FALSE. IF THE CURVATURE TERMS ARE TO BE IGNORED. 3079 
C USE SGFLAG * .TRUE. IF THE GEOMETRIC STIFFNESS MATRIX SG IS TO 3080 
C BE COMPUTED. IN THIS CASE THE DIMENSIONS OF SG MUST BE 3081 
C USE SGFLAG - .FALSE. IF SG IS NOT TO BE COMPUTED. 3082 
C 01,02,012 ARE THE CURVATURES AT THE NODES. 3083' 


C NOFE IS THE NUMBER OF DEGREES OF FREEDOM PER ELEMENT (NDFE*5*NSF) 3089 


c 

c 

THE ARRAY SS IS TO BE STORED 
ISS+NDFE+NDFE OF COMMON. 

IN 

POSITIONS 

ISS+1 

THRU 


3085 

3086 

c 

c 

THE ARRAY SG 
ISG+NSF*NSF 

IS TO BE STORED 
OF COMMON. 

IN 

POSITIONS 

ISG + l 

THRU 


3087 

3088 

c 

c 

THE INTEGRALS 
OF COMMON. 

XDNDN ARE STORED 

IN 

POSITIONS 

I XC+1 

THRU 

IXC+9*IC 

3089 

3090 

c 

c 

THE INTEGRALS 
OF COMMON. 

XNNON ARE STORED 

I N 

POSITIONS 

IXB + 1 

THRU 

IXB+2*IB 

3091 

3092 

c 

c 

THE INTEGRALS 
OF COMMON. 

XNNNN ARE STORED 

IN 

POSITIONS 

IXA + 1 

THRU 

IXA + IA 

3093 

3099 


C SS SHOULD BE THOUGHT OF AS HAVING FOUR INDICES, 3095 

C I.E. SS » SS( J1,K1, J2,K21, (J1,J2*1 THRU 5), (K1,K2»1 THRU NSF) 3096 


C 3097 

C 3099 

LOGICAL SGFLAG, CURVE 3100 

DIMENSION SG<1),SS{1) 3101 

C0MM0N/SPACE/C11,C12,C16,C22,C26,C66, 3102 

♦ F11,F12,F16,F22,F26,F66,D11,012,D16,022,D26, 066 , C 55, C 99, C 59 , 3103 

♦ EN1,EN2,EN12, NSF, CURVE, SGFLAG, 0UM(13), 3109 

♦ 01(10), Q2(10)>012(10),PRESS(30), 3105 

♦ DUMMY( 19),NNE,ISS,ISG,0THERS(1) 3106 

C0MM0N/TEMP/SKIP(6), 3107 

♦ CUR(;i,CURC2,CURC6,CURFl,CURF2,CURF6, J, J1,J2,J0N,J1N, 3108 

♦ J2N,J3N,J9N,J5N,K1,K1N,K1M,K1P1,K2,K2G,K2M,K2N,K3,K3M1,K9,NDFE, 3109 

♦ NDFE5,NSFM1, 3110 

♦ QUl, 0U2,OU12, XNN,XN1N, XN2N,XNN1N,XNN2N, X1N1N,X1N2N,X2N1N, X2N2N 3111 

♦ ,DIAG,0FFD, 021(10), 0U21 3112 

EQUIVALENCE ( S S ( 1 ) , Cl 1 ) , ( SG ( 1 ) ,C 11 ) 3113 

C 3119 

CDNDN(A,B,C,0) = A+XININ ♦ B*X1N2N ♦ C*X2N1N + D*X2N2N 3115 

CURV(A,B,C) • A*0U1 B*0U2 ♦ C*0U21 3116 

3117 

3118 

IF (CURVE) 3119 

IF( .NOT. CURVE )GOTO 10 3120 

C THEN 3121 

DO 1 J«1,NNE 3122 

Q2KJ) • 2.*012(J) 3123 

1 continue 3129 

10 CONTINUE 3125 

NOFE • 5*NSF 3126 

N0FE5 ■ 5*NDFE 3127 

JON . ISS - 5*(NDFE+1) 3128 

DO 8 K1»1,NSF 3129 

JON • JON + 5 3130 
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JIN • JON 3131 

K2G • ISG - NSF 3132 

DO 8 K2»1>K1 3133 

JIN • JIN ♦ NOFE5 313« 

J2N • JIN + NDFE 3135 

J3N • J2N + NDFE 3136 

J^N « J3N + NDFE 3137 

J5N ■ J<tN + NDFE 3138 

K2G • K2G + NSF 3139 

XININ • XDNDN(1,K1,1,K2) 3140 

X1N2N • X0NDN(1»K1,2,K2) 3141 

X2N1N • XDNDN(2»K1, 1,K2) 3142 

X2N2N « XDN0N(2»K1,2.K21 3143 

SSCI+JIN) • CDNDN(C11,C16.C16*C66) 3144 

SS(1+J2N) ■ CDNDN(C16.C12»C66.C26) 3145 

SS(2+J1N) • CDNDN(C16,C66»C12.C26) 3146 

SS(2+J2N) - CDNDN(C66,C26»C26»C22) 3147 

SS(1+J4N) • C0NDN(F11,F16»F16,F66I 3148 

SS<1 + J5N) • CDNON( F16» F12» F66» F26 ) 3149 

SS(2+J4N) • C0NDN(F16,F66»F12»F26) 3150 

SS(2+J5N) • C0NDN(F66»F26.F26,F22) 3151 

SS<4+J1N) - CDN0N(F11,F16.F16*F66» 3152 

SS(4+J2N) • CDN0N(F16»F12»F66»F26» 3153 

SS(5+J1NI • CDN0N(F16,F66.F12.F26) 3154 

SS(5+J2NI • CDNDN(F66>F26>F26>F22) 3155 

SS(4+J4N) • CDNDN(011,016«D16»D66J 3156 

SS(4+J5N) • CDNDN(016»012,066,026) 3157 

SS(5+J4N) . CDNDN(016,066»D12»D26J 3158 

SS(5+J5N) • CDNDN (D66.D26,D26»022) 3159 

SS(1+J3N) - 0. 3160 

S.S(2 + J3N) • 0. 3161 

SS(3+J1N» • 0. 3162 

SS(3+J2N) • 0. 3163 

C OQ (ADO ON THE TERMS INVOLVING C55»C54,C44) 3164 

SS(3+J3N) • CDNDN(C55.C54»C54,C44» 3165 

XNIN . XNNON (K2»0> 1»K1) 3166 

XN2N • XNNON<K2,0,2,K1) 3167 

SS(3+J4N) • C554XN1N ♦ C54*XN2N 3168 

SS(3«-J5N) • C54AXN1N ♦ C44*XN2N 3169 

XNIN • XNN0N(Kl,0>liK2) 3170 

XN2N • XNN0N{K1,0»2»K2) 3171 

SS(4+J3N) • C55*XN1N ♦ C54+XN2N 3172 

SS(5+J3N) • C54*XN1N + C44*XN2N 3173 

XNN • XNNNN(K1,K2>0.0) 3174 

SS(4+J4NI . SS(4+J4N) ♦ C55*XNN 3175 

SSI4+J5N) ■ SSI4+J5N) ♦ C54*XNN 3176 

SS(5+J4N) • SSI5+J4N) ♦ C54*XNN 3177 

SS(5+J5N) • SSI5+J5N) ♦ C44*XNN 3178 

C CONTINUE 3179 

IF (CURVE ) GO TO 2 3180 

GO TO 7 3181 

C THEN ADD ON THE CURVATURE TERMS 3182 

2 DUG ■ 0 3183 

OFFD • 0 3184 

DO 6 K3-1»NNE 3185 

OUl • QKK3) 3186 

QU2 • Q2(K3) 3187 

0U21 » Q2KK3) 3188 

CURCl ■ CURV(C11.C12»C16) 3189 

CURC2 » CURV(C12.C22»C26) 3190 

CURC6 « CURV(C16»C26»C66I 3191 

CURFl » CURV(F11,F12.F16) 3192 

CURF2 • CURV(F12*F22»F26) 3193 

CURF6 • CURV( F16> F26» F66I 3194 

XNNIN ■ XNNDN(K2»K3»1.K1) 3195 

XNN2N • XNNDN(K2,K3»2>K1) 3196 

SS(1+J3N) • SS(1+J3N) + CURC1*XNN1N + CURC6*XNN2N 3197 

SSI2+J3N) ■ SS(2+J3N> ♦ CURC6*XNN1N ♦ CURC2*XNN2N 3198 
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SS(^ + J3N) « SS(<i + J3N) ♦ CURFI + XNNIN + CURF6*XNN2N 

3199 



SS(5+J3N) ■ SSI5+J3N) ♦ CURF6*XNN1N ♦ CURF2*XNN2N 

3200 



XNNIN ■ XNNDN(K1>K3>1»K2) 

3201 



XNN2N « XNNDN(K1,K3»2»K2) 

3202 



SSI3+J1N) « SSI3+J1N) + CURC1*XNN1N ♦ CURC6*XNN2N 

3203 



SSI3+J2N) » SSI3+J2N) ♦ CURC6*XNN1N ♦ CURC2*XNN2N 

320<t 



SSI3+JAN) • SS(3+J«N) ♦ CURF1*XNN1N ♦ CURF6*XNN2N 

3205 



SSI3+J5N) - SSI3+J5N) ♦ CURF6*XNN1N + CURF2+XNN2N 

3206 

c 


. THE FOLLOWING CODE IS EQUIVALENT TO SUMMING 

3207 

c 


BOTH K3 AND K4 FROM 1 TO NNE. 

3208 

c 


. OFF-DIAGONAL TERMS HAVE A COMPENSATING FACTOR OF 2. 

3209 



IF(K3.NE.l) GO TO 3 

3210 



GO TO 5 

3211 

c 


THEN (TERMS WITH K3 NOT EQUAL K9) 

3212 

3 


K3M1 - K3 - 1 

3213 



DO A KA-1,K3H1 

321A 



OFFD • OFFO + XNNNN(K1,K2,K3,K9) ♦ 

3215 


* 

(01(KA)*CURC1 ♦Q2(KA)*CURC2 ♦ 02 1 ( K9 ) ♦CURC 6 ) 

3216 

<t 


CONTINUE 

3217 

C 


CONTINUE (TERM WITH K3 • K^) 

3218 

5 


OIAG ■ OIAG + XNNNN(K1»K2>K3>K3)* 

3219 


* 

(QU1*CURC1 +0U2*CURC2 +0U21*CURC6) 

3220 

6 


CONTINUE 

3221 



SS(3+J3N) • SS(3+J3N) ♦ DIAG + OFFD + OFFD 

3222 

7 


CONTINUE 

3223 



IF (SGFLAG) 

3229 

C 


THEN 

3225 


♦ 

SG(K1+K2G) ■ EN1*X1N1N + EN2*X2N2N + EN 12* ( X 1N2N+X2N1N ) 

3226 

C 


CONTINUE 

3227 

8 

CONTINUE 

3228 

C 

CONTINUE 

3229 


3230 

c 

. SYMMETRIZE SS AND SG 

3231 


KIN • 

ISS - NOFE - 5 

3232 


KIM • 

-NDFE5 

3233 


NSFMl 

• NSF - 1 

3234 


00 9 Kl-1, NSFMl 

3235 


KIN 

« KIN + 5 

3236 


KIM 

• KIM ♦ N0FE5 

3237 


K2N 

■ KIM + KIN 

3238 


K2M 

• K2N 

3239 


KIP 1 « K1 ♦ 1 

3240 


DO 

9 K2«K1P1,NSF 

3241 



K2N • K2N ♦ N0FE5 

3242 



K2M ■ K2M ♦ 5 

3243 



IF (SGFLAG) 

3244 

c 


THEN 

3245 


* 

SG(ISG+KltK2*NSF-NSF) • SG ( I S G+K2 +K 1 ♦N S F-N SF ) 

3246 

c 


CONTINUE 

3247 



DO 9 Jl«l,5 

3248 



DO 9 J2-l»5 

3249 



SS (J1+J2*NDFE+K2N) • S S ( J2 + J 1*NDFE +K 2M ) 

3250 

c 


CONTINUE 

3251 

c 


CONTINUE 

3252 

c 

CONTINUE 

3253 

9 

CONTINUE 

3254 

c 

...ONLY EXIT 

3255 


RETURN 


3256 


END 


3257 
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SUBROUTINE LODVEC 3258 

C 3260 

C THIS SUBROUTINE EVALUATES THE CONSISTENT LOAD SP. 3261 

C THE NUMBER OF DEGREES OF FREEDOM PER NODE IS FIVE 3262 

C NSF IS THE NUMBER OF SHAPE FUNCTIONS PER ELEMENT 3263 

C NNE IS THE NUMBER OF ♦NODAL* SHAPE FUNCTIONS PER ELEMENT 326A 

C P CONTAINS THE NODAL VALUES OF THE NORMAL ( TRANSVERSE I LOADS 3265 

C P1»P2 CONTAIN THE NODAL VALUES OF THE IN-PLANE LOADS 3266 

C SP IS TO BE STORED BETWEEN POSITIONS- IXC+1 AND IXC+5*NNE OF 3267 

C COMMON. 3268 

C 3269 

C 3271 

C0MM0N/SPACE/SP(70)»P(10),P1(10) »P2(10), 3272 

♦ DUMMY(l<.),NNE>SKP(2)»IXC>0THERSm 3273 

COMMON/TEMP/SKIP (6) »I» IL. IU.K,K1,K2»XNN 327^ 

C 3275 

C 3276 

IL ■ IXC + 1 3277 

lU • IXC ♦ 5*NNE 3278 

DO 1 I-IL.IU 3279 

SP(I) • 0 3280 

1 CONTINUE 3281 

K • IXC - 5 3282 

00 2 Kl-l.NNE 3283 

K - K ♦ 5 3284 

DO 2 K2«1,NN£ 3285 

XNN • XNNNN(K1,K2»0.0) 3286 

SP(1*K) - SP(1+K) ♦ P1(K2)*XNN 3287 

SP(2+K) • SP(2+K) + P2(K21*XNN 3288 

SP(3+K) • SP(3+K) - P(K2)*XNN 3289 

C CONTINUE 3290 

2 CONTINUE 3291 

RETURN 3292 

END 3293 


SUBROUTINE MASS 3294 

C 3296 

C THIS SUBROUTINE CALCULATES THE CONSISTENT MASS MATRIX SM FOR AN 3297 

C ISOLATED DOUBLY-CURVED SHALLOW SHELL FINITE ELEMENT. 3298 

C RHO IS THE DENSITY OF THE SHELL MATERIAL 3299 

C H IS THE SHELL THICKNESS 3300 

C SM IS TO BE STORED BETWEEN POSITIONS IXC*5*NNE+1 AND 3301 

C IXC + 5*NNE«-NSF*NSF OF COMMON. .3302 

C 3303 

C 3305 

C0MM0N/SPACE/SM(24)»NSF,0UMMY(51»RH0»H,0UM(68)» 3306 

* SKIPP( 14)»NNE,SKP(2)»IXC»0THERSm 3307 

COMMON/TEMP/SKIP (6)» IXM,K1»K1N,K2»TEMP 3308 

C 3309 

C 3310 

TEMP • RHO*H 3311 

IXM • IXC + 5*NN£ 3312 

DO 2 Kl-l.NSF 3313 

KIN • IXM ♦ K1 - NSF 3314 

DO 2 K2-1.NSF 3315 

SM(K1N + K2*NSF ) • TE M P*XNNNN ( K1 ,K2» 0, 0 ) 3316 

C CONTINUE 3317 

2 CONTINUE 3318 

RETURN 3319 

END 3320 
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FUNCTION XDNDN( L1,K1* L2,K2) 3321 

^:^*^^^*t*******t******i^**** ********** *************************<¥******** 3322 

3323 

THIS SUBROUTINE RETRIEVES XDNDN t L1>K1» L2< K2 ) FROM WHERE IT WAS 3324 

PREVIOUSLY STORED. IT IS LOCATED BETWEEN XC(IXC+1) AND 3325 

XC(IXC+IC). 3326 

3327 

*********************************************************************** 3328 

3329 

DIMENSION MUD) 3330 

COMMON/SPACE/XC (110) » IC,SKIP{6). IXC. OTHERS (1 ) 3331 

COMMON/TEMP/INDX 3332 

DATA (M(I),I-1,10)/0,1>3»6»10»15»21»28,36,45/ 3333 

3334 

3335 

IF (K1.GE.K2) 3336 

IFCK1.lt. K2) GO TO 1 3337 

THEN 3338 

INOX ■ K2 + M(K1) + IC*(Ll+Ll+L2-3) 3339 

GO TO 2 3340 

ELSE 3341 

1 INOX • K1 + M(K2) ♦ IC*(Ll+L2+L2-3) 3342 

2 CONTINUE 3343 

XDNDN • XCdXC+INDX) 3344 

RETURN 3345 

END 3346 


FUNCTION XNNDN(K1.K2>L»K3) 3347 

****************************************************************** 3348 

3349 

THIS SUBROUTINE RETRIEVES X NNON ( Kl,K2 , L / K 3 ) FROM WHERE IT WAS 3350 

PREVIOUSLY STORED. IT IS LOCATED BETWEEN XB<IBX+1) AND 3351 

XB(IBX+IB). 3352 

3353 

3355 

DIMENSION M(ll) 3356 

C0MMQN/SPACE/XB(24)»NSF,SKIP(75)»SKP(9), IB»SKIPP(8)»IXB,0THERS( 1) 3357 

COMMON/TEMP/INDX- 3358 

DATA (M(I)»I-l»ll)/0.1»3.6»10»15»21»28»36»45/55/ 3359 

3360 

3361 

IF (K1.GE.K2) 3362 

IF(K1.LT.K2) GO TO 1 3363 

C THEN 3364 

INDX • NSF+(K2»M(Kl-fl ) ) 3365 

GO TO 2 3366 

C ELSE 3367 

1 INDX • NSF* (Kl■^M(K2 + l) ) 3368 

2 CONTINUE 3369 

XNNON • XB(IXB+IN0X+IB*(L-1)+K3) 3370 

RETURN 3371 

END 3372 
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FUNCTION XNNNN(KK1,KK2,KK3»KK'.) 3373 

^t^^^**^^***^^t^******^t****t **************** ********************* 3374 

3375 

THIS SUBROUTINE RETRIEVES XNNNN ( Kl, K2»K 3, K4 ) FROM WHERE IT WAS 3376 

PREVIOUSLY STORED. IT IS LOCATED BETWEEN XA(IXA*1) AND 3377 

XA(IXA+IA). 3378 

3379 

****************************************************************** 3380 

C 3381 

DIMENSION M1(11),M2(11),M3(11) 3382 

C0MM0N/SPACE/XA(119),IXA.0THEPS(1) 3383 

C0MM0N/TEMP/KJ,IN0X,K1,K2»K3»K4 3384 

DATA (M1(I),I.1,11)/0,1,5,15.35»70,126,210,330,495>715/ 3385 

DATA (M2(n,I«l,U)/0»l,4,X0*20*35»56»84,12O»165»220/ 3386 

DATA (M3(I),I-1,11)/0,1.3>6>10,15»21»28,36>45»55/ 3387 

C 3388 

C 3389 

K1 • KKl ♦ 1 3390 

K2 • KK2 + 1 3391 

K3 ■ KK3 ♦ 1 3392 

K4 • KK4 ♦ 1 3393 

C . PLACE K1,K2»K3>K4 INTO DESCENDING ORDER . 3394 

IF (K1.GE.K3) GO TO 1 3395 

KJ • K1 3396 

K1 • K3 3397 

K3 • KJ 3398 

1 IF (K2.GE.K4) GO TO 2 3399 

KJ • K2 3400 

K2 • K4 3401 

K4 • KJ 3402 

2 IF (K1.GE.K2) GO TO 3 3403 

KJ • K1 3404 

K1 « K2 3405 

K2 • KJ 3406 

3 IF (K3.GE.K4) GO TO 4 3407 

KJ « K3 3408 

K3 ■ K4 3409 

K4 - KJ 3410 

4 IF (K2.GE.K3) GO TO 5 3411 

KJ • K2 3412 

K2 « K3 3413 

K3 • KJ 3414 

5 CONTINUE 3415 

C . K1,K2»K3»K4 ARE NOW IN DESCENDING ORDER . 3416 

INDX • MKKl) ♦ M2(K2) ♦ M3(K3) + K4 3417 

XNNNN • XA(IXA+INDX) 3418 

RETURN 3419 

end 3420 
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0VERLAY(MAIN,13,0) 3431 

PROGRAM PRINT 3422 

*****^^t ************************************* ********************* 3423 

3424 

THIS PROGRAM PRINTS SS» SG, SP AND SM IF THEY HAVE BEEN EVALUATED. 3425 

IT ALSO RECONSTRUCTS AND PRINTS THE FULL CONSISTENT MASS MATRIX 3426 

FROM SM, BUT IN DOING SO IT CLOBBERS SS IN CORE. 3427 

3428 

Q^*^^i^^^L***** ************************************************ ************* 3429 

C 3430 

LOGICAL SGFLAG, SMFLAG.SPFLAG.SWM . 3431 

DIMENSION LABEL1(4),LABEL.2(4),LA8EL3J4),LABEL4(4),LABEL5(4) 3432 

DIMENSION SS(1),SG(1),SP(1),SM(1),SMASS(1) 3433 

C0MM0N/SPACE/SPACE(24 ),NSF,CURVE»SGFLAG»SMFLAG,SPFLAG,PRFLAG» 3434 

♦ RH0,H,DUMMY(68), 3435 

♦ SKIP(14),NNE,ISS,ISG,IXC,0THERS(1) 3436 

CDMM0N/TEMP/I,IL,IU,K1,K1N»K12,K2»K2N»NDFE,SWM, TEMP,TEMP1 3437 

EQUIVALENCE ( SS ( 1 ) » S P AC E ( 1 II , < SG ( 1 ) , S P AC E ( 1 ) ) , ( S P ( 1 ) , S P A CE < 1 ) ) , 34 38 

♦ (SM(l),SPACE(in,(SMASS(l»,SPACE(l)) 3439 

C 3440 

DATA LABEL1/40HSTIFFNESS MATRIX SS / 3441 

DATA LABEL2/40HGE0METRIC STIFFNESS ARRAY SG / 3442 

DATA LABEL3/40HL0AD VECTOR SP / 3443 

DATA LABEL4/40HCGNSISTENT MASS ARRAY SM / 3444 

DATA L ABEL5/40HFULL CONSISTENT MASS MATRIX SMASS / 3445 

C 3446 

C 3447 

SWM • .TRUE. 3448 

NDFE « 5*NSF 3449 

IL • ISS ♦ 1 3450 

lU • ISS + NDFE*NDFE 3451 

WRITE (6,1) LABELl, (SS(I),I-IL,IU) 3452 

!• FORMAT (1H1,40X,4A10//(10E12.5>) 3453 

IF (SGFLAG) GO TO 2 3454 

GO TO 3 3455 

C THEN 3456 

2 IL • ISG + 1 3457 

lU « ISG + NSF4NSF 3458 

WRITE (6,1) LABEL2,(SG(I),I-IL,IU) 3459 

3 CONTINUE 3460 

IF (SPFLAG) GO TO 4 3461 

GO TO 6 3462 

C THEN 3463 

4 IL • IXC + 1 3464 

lU ■ IXC + 5*NNE 3465 

WRITE (6,5) LA8EL3, (SP(I),I-IL,IU) 3466 

5 F0RMAT(////40X,4A10//(10E12.5)) 3467 

6 CONTINUE 3468 

IF (SMFLAG) GO TO 7 3469 

GO TO 8 3470 

C THEN 3471 

7 IL ■ IXC + 54NNE + 1 3472 

lU • IXC + 5+NNE + NSFANSF 3473 

WRITE (6,5) LABEL4, (SM( I ) , I»IL, lU) 3474 

8 CONTINUE 3475 

IF (SWM .AND. SMFLAG) GO TO 9 3476 

GO TO 12 3477 

C THEN 3478 

9 IL • ISS + 1 3479 

lU • ISS + N0FE*NDFE 3480 

DO 10 l*IL,IU 3481 

SS( I ) - 0. 3482 

10 CONTINUE 3483 

TEMPI • H*H/12. 3484 

KIN • ISS - NDFE - 5 3485 

DO 11 K1*1,NSF 3486 

KIN • KIN + 5 3487 

DO 11 K2-1,NSF 3488 

K12 = 5*NDFE*(K2-1) + KIN 3489 
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TEMP ■ SM (IXC+5*NNE+K1+NSF*(K2-1 I ) 3^90 

SMASS(1 + K12+ NDFE) ■ TEMP 3<^91 

SMASS( 2+K12 + 2*NDFE) • TEMP 3<»92 

SMASS( 3+Kl2+3*NDFE ) ■ TEMP 3993 

SMASS(9+K12+9*NDFE) • TEMP*TEMP1 3999 

SMAS'S( 5+kl2 + 5*NDFE ) • TEMP*TEMP1 3995 

C CONTINUE 3996 

11 CONTINUE 

WRITE(6,1) LABEL5»{SMASS(I).I«IL.IU) 3998 

12 CONTINUE 3^99 

END 3500 
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FIXED INPUT ARRAYS FOR THE SIX ELEMENT TYPES 
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SAMPLE CALLING PROGRAM 

OVERLAY(HAIN,C»C) 1 

PROGRAM MAIN( INPUT, OUTPUT, TAPES* INPUT,TAPE6*0UTPUT»TAPE1,TAPE2> 2 

♦ TAPES, TAPEA, TAPES, TAFE9) 3 

DIMENSION CF0(21) A 

CQMMCN/TEMP/ 1, TEMP (6C ) S 

COMMON/STQPE /STORE ( AC) 6 

C0MHQN/SPACE/SPACE(2A),NSE,CURVE.SGFLAG,SMFLAG,SPFLAG,PRFLA6, 7 

♦ RH0,H,X(A),Y(A),SKIP(60),NRECriRD(7), 8 

♦ 0THERS(b20C) 9 

EOU I VAL ENCE ( SPACE ( 1 ) ,CFD( 1) ) 10 

LOGICAL CURVE, SGFLAG,SMFLAG,SPELAG,PRFLAG 11 

C 12 

C 13 

C . SET NPECQRD(I) • 1 TQ ALLOW FINITE ELEMENTS WITH NSF *1+3 lA 

C TQ BE COMPUTED. I may TAKE ON VALUES 1,2, 3, 5,6, OR 7. 15 

C THE REMAINING COMPONENTS OF NRECORO SHOULD BE SET TO ZERO. 16 

■ NRECORO(l) * 1 17 

NRECOPO(2) * 1 18 

NREC0RD(3) *1 19 

NRECQPD(5) *1 20 

NREC0RD(6) * 1 21 

NREC0RD(7) * 1 22 

NSF *6 23 

C . SET FIVE FLAGS. 2A 

CURVE = .T. 25 

SGFLAG « .T. 26 

SMFLAG * . T . 27 

SPFLAG * . T. 28 

PRFLAG « .T. 29 

C . DEFINE DENSITY AND THICKNESS. 30 

RHO • .000001 31 

H * .OA 32 

C . DEFINE COORDINATES CF CORNER NODES FOR TRIANGULAR ELEMENTS. 33 

X( 1) • .2 3A 

Y ( 1) « . 1 35 

X(2) » .6 36 

Y(2) • .3 37 

X ( 3 ) * .A 3B 

Y ( 3 ) • . 5 39 

X ( A ) • 0. AO 

Y(A) *0. A1 

C . DEFINE EXTENSIONAL AND TRANSVERSE SHEAR STIFFNESSES OF SHELL. A2 

CFO(l) = 1.23970 A3 

CF0I2) • .165B20 AA 

CFDI3) • -.1A7991 A5 

CFO(A) * .0912631 A6 

CF0(5) • .0385601 A7 

CF0I6) - .17980A A8 

CF0(7) • .002AA105 A9 

CFDI8) • -.000905935 50 

CF0(9) • -.00318850 51 

CFO(IO) • -.000629179 52 

CFO(ll) ‘ -.00102919 53 

CFDI12) * -.000905935 5A 

CF0(13) = .0001A9019 55 

CFD(IA) • .0000281A89 56 

CF0I15) * .00000152A51 57 

CF0(16) » .0000163629 • 58 

CFDI17) • .0000120026 59 

CFDI18) • .000030013A 60 

CFD(19) * .023A7C0 61 

CFDI20) * .0205300 62 

CFD(21) • -.00028015A 63 
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C . define prestress coefficients. b‘t 

SPACE(22) » 1. 65 

SPACE(23) » 1. 66 

SPACEI2A) = 1. 67 

c . define curvature and load COKPONENTS. 68 

SPACE(Al) * .5 69 

SPACE(51) • .5 70 

SPACE(61) • .1 71 

SPACE(71) = 1. 72 

SPACE181) ■ 0. 73 

SPACE(91) • 0. 79 

DO 7 I»A1,91,10 75 

DO 7 J*:,9 76 

SPAC E ( I ) • SPACE ( I ) 77 

C continue 78 

? continue 79 

C . DISPLAY first 100 WORDS IN (LABELED COMMON) SPACE. 80 

WRITE(6»A) 31 

A FOPMATdHl) 82 

WRITE(6>1) ( SPACE! I )> I«l, 100) 83 

1 FORMAT!* THE CONTENTS OF THE FIRST 100 WORDS OF LABELED* 8A 

* * COMMON /SPACE/ ARE AS FOLLOWS*// .35 

* IX, 12E 11 . A/IX, 12E 11 . A/ 18, 5L 11 /7( IX, lOE 11. A/ ) ) 86 

NSF « 6 37 

CALL ELEMENT 88 

NSF « 10 89 

CALL ELEMENT 90 

C . DEFINE COORDINATES OF CORNER NODES FOR PARALLELOGRAM ELEMENTS. 91 

X!l) • .15 92 

Y(1 ) > .2 93 

X!2) • .55 9A 

Y!2) . .1 95 

X!3) = .7 96 

Y !3 ) • .A 97 

X ! A ) • . 3 98 

Y!A) . .5 99 

NSF • A 100 

WRIT£!6,A) 101 

WRITE!6,1) ! SPACE ! I ), I *1 , 100 ) 102 

Call ELEMENT 103 

NSF - 5 lOA 

CALL ELEMENT 105 

NSF • 8 106 

CALL ELEMENT 107 

NSF • 9 108 

CALL ELEMENT 109 

C . DEFINE COORDINATES OF CORNER NODES FUR TRAPEZOIDAL tIEMENTS. 110 

X ! 1 ) • . 1 111 

Y(l) = .2 112 

X!2) * .6 113 

Y!2) • .2 113 

X ! 3 ) « . 5 ll5 

Y(3) • .5 116 

X!A)*.2S 117 

Y!A) X .5 118 

NSF . A 119 

WRITE!6,A) 120 

WRITE!6,1) ! SPACE ! I ), I -1 , 100 ) 121 

CALL ELEMENT 122 

NSF X 5 123 

CALL ELEMENT 12A 

NSF « 8 125 

CALL ELEMENT 126 

NSF • 9 127 

CALL ELEMENT 128 
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. DEFINE COORDINATES OF CORNER NODES FOR TRAPEZIUM ELEMENTS. 129 
X( 1) • .2 130 
Y(l) • .1 131 
X(2) » .6 132 
Y(2) • .1 133 
X ( 3 ) • . S 139 
Y{3) * .5 135 
X(9) - .15 136 
Y(9) - .35 137 
NSF * 9 138 
WRITE(6»9) 139 
WRITE(6.1) ( SPACE ( I) , I • 1. 100) 190 
CALL ELEMENT 191 
NSF • 5 192 
CALL ELEMENT 193 
NSF=8 199 
CALL ELEMENT 195 
NSF • 9 1A6 
CALL ELEMENT 197 
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TABLE I. - INPUT VARIABLES CONTAINED IN FIRST 100 WORDS 
OF LABELED COMMON SPACE 


-- - 

Position in 
SPACE 

— 1 

FORTRAN 

name 

Variable 

name 

Routine 

where variable 
is used 

Description 

1 

Cll 

Clin 

LINSTF 



2 

C12 

C 1122 





3 

C16 

C 1112 





4 

C22 

C 2222 




iExtensional stiffnesses 

5 

C26 

C2212 





6 

C66 

C1212 





7 

Fll 

Fill! 



"N 

■ 

8 

F12 

F 1 II 2 





9 

F16 

F1112 





10 

F22 

F2222 




) Stiffness interaction coefficients 

11 

F26 

F2212 





12 

F66 

F1212 



J 


13 

Dll 

Dim 





14 

D12 

D1122 





15 

D16 

D1212 





16 

D22 

D2222 




> Bending stiffnesses 

17 

D26 

D2212 





18 

D66 

D1212 





19 

C55 

Cl313 





20 

C44 

C2323 




^ Transverse shear stiffnesses 

21 

C54 

Cl323 



J 


22 

ENl 

-'’11 





23 

EN2 

^22 




( Prestress coefficients 

24 

EN12 

-^12 







TABLE I. - Concluded 


Position in 
SPACE 

FORTRAN 

name 

Variable 

name 

Routine 

where variable 
is used 

Description 

25 

NSF 



ELEMENT 

INTGRAL, 

Number of shape functions associated 





TRI, QUAD, LINSTF, 

with finite element 





MASS, 

PRINT 


26 

CURVE 



LINSTF 

To be set to FALSE for flat plate and to 







TRUE if shell has curvature 

27 

SGFLAG 



LINSTF, 

STORE, 

To be set to TRUE if SG is to be 





PRINT 

evaluated 

28 

SMFLAG 



SGPM, STORE, PRINT 

To be set to TRUE if SM is to be 







evaluated 

29 

SPFLAG 





To be set to TRUE if SP is to be 







evaluated 

30 

PRFLAG 



ELEMENT 

To be set to TRUE If the evaluated 







characteristic arrays are to be 







printed 

31 

RHO 


P 

MASS 

Density 

32 

H 


h 



Thickness of shell 

33-36 

X{4)* 

xl 

’'l 

x2 x3 v4 

TRI, QUAD 

x-coordinates of corner nodes 

37-40 

Y(4)* 

^2 

y2 y3 v 4 
^2, xg, ^2 

TRI, 

QUAD 

y-coordinates of corner nodes 

41-50 

Ql(lO)* 

•^ll 

(i = 1 - m) 

LINSTF 

] 

51-60 

Q2(10)* 

'^22 

(i = 1 - m) 



/Nodal values of curvature components 

61-70 

Q12(10)* 

*^12 

(i = 1 - m) 



J 

71-80 

P(10)* 


(i = 1 - m) 

LODVEC 

Nodal values of transverse load 

81-90 

Pl(lO)* 

Pi 

(i = 1 - m) 



\ 

91-100 

P2(10)* 

P 2 

(i = 1 - m) 



/Nodal values of in -plane loads 


*The dimensions of the FORTRAN arrays are given in parentheses. 
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TABLE II.- LISTING AND DESCRIPTION OF ROUTINES WHICH COMPRISE SYMINSE PROGRAM 


Primary 

overlay 

Routine 

Field 

length 

Files 

referenced 

Description 

Relevant equations 
from ref. 1 

0 

ELEMENT 

137 


Entering program for the SYMINSE program 



INTGRAL 

333 


Governs evaluation of A-, B-, and C-integrals 



STORE 

141 

Write 3 

Stores characteristic arrays on disk 





Write 4 






Write 8 






Write 9 



1 

SETUP 

363 

Read 1 

Governs evaluation of integration arrays 





Write 2 






Write 6 




SETA 

515 

Read 1 
Write 2 
Write 6 

Sets up integration arrays for A-integrals 

(53), (57) 


SETB 

556 

Read 1 
Write 2 
Write 6 

Sets up integration arrays for B -integrals 

(54), (58) 


SETC 

665 

Read 1 
Write 2 
Write 6 

Sets up integration arrays for C-integrals 

(55), (59) 

2 

TRI 

343 

Read 2 

Evaluates A-, B-, and C-integrals for triangular 

(23) to (27) 





elements 


3 

QUAD 

740 

Read 2 

Evaluates logical variables PARA and TRAP, evalua- 

(28), (29), (43) to (45) 





ates A- and B-integrals, and evaluates C-integrals 
if PARA = TRUE 



BLOG 

112 


Evaluates a logarithmic function 

(33) 


ELOG 

105 


Evaluates a logarithmic function 

(42) 


WLOGl 

272 


Evaluates a logarithmic function 

) (38) 


WLOG2 

375 


Evaluates a logarithmic function 

J 

4 

TRAPS 

272 


Performs group transformations preparatory to eval- 

(66), (67) 





uation of C-integrals for 4 -node trapezoidal 
elements 



XDNDN 

575 


Evaluates C-integrals for 4-node trapezoidal elements 

(41) 
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TABLE n. - Concluded 


Primary 

overlay 

Routine 

Field 

length 

Files . 
referenced 

Description 

Relevant equations 
from ref. 1 

5 

TRAP9 

272 


Performs group transformations preparatory to eval- 
uation of C -integrals for 8-node trapezoidal 
elements 

(66), (67) 


XDNDN 

2435 


Evaluates C -integrals for 8-node trapezoidal elements 

(41) 

6 

QUADS 

343 


Performs group transformations preparatory to eval- 
uation of C-integrals for 4-node elements 

(66) to (69) 


XDNDN 

2215 


Evaluates C-integrals for 4-node trapeziums 

(37) 

7 

QUADS 1 

421 


Performs group transformations preparatory to eval- 
uation of first set of C-integrals for 8-node 
trapeziums 

(66), (67) 


XDNDN 

3420 


Evaluates first set of C-integrals for 8-node 
trapeziums 

(30) 

lOg 

QUAD82 

422 


Performs group transformations preparatory to eval- 
uation of second set of C-integrals for 8-node 
trapeziums 

(66), (67) 



4247 


Evaluates second set of C-integrals for 8-node 
trapeziums 

(30) 

ll8 

QUAD9 

422 


Performs group transformations preparatory to eval- 
uation of third set of C-integrals for trapeziums 
with NSF = 9 

(66), (67) 


XDNDN 

2360 


Evaluates third set of C-integrals for trapeziums 
with NSF = 9 

(30) 

12g 

SGPM 

54 


Governs the evaluation of the characteristic arrays 
SS, SG, SP, and SM 



LINSTF 

LODVEC 

1225 

121 


Evaluates the stiffness SS and the geometric stiff- 
ness SG 

Evaluates the consistent load SP 


^Equations of appendix B 


MASS 

101 


Evaluates the consistent mass SM 

J 



XDNDN 

75 


Retrieves C-integrals 

(22) 


XNNDN 

74 


Retrieves B-integrals 

(22) 


XNNNN 

163 


Retrieves A-integrals 


13g 

PRINT 

322 

Write 6 

Displays the characteristic arrays SS, SG, SP, SM, 
and SMASS 
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TABLE nr. - FORTRAN VARIABLES STORED IN FIXED POSITIONS IN COMMON SPACE EXCLUDING THE 

INPUT VARIABLES LISTED IN TABLE I 


Position in 
SPACE 

FORTRAN 

name 

Routine where 
variable is defined 

Routine where 
variable is used 

Description 

1- 

SPACE( )♦ 





Alias for any position in this common block 

101-107 

NRECORD(7)» 

SETUP 

TRI, QUAD 

Governs values of m for which the integration 
arrays are to be set up 

108 

LIMIT 

INTGRAL 

TRAPS, TRAP9, 
QUADS 

Governs the number of integrals to be computed 

109-120 

INDX(12)* 

SETUP 



Alias for the next 12 variables 

109 

lA 



SETUP, T 

Rl, QUAD 

Number of A -integrals to be evaluated, equal to 
(r+l)(r+2)(r+3){r+4)/24 

110 

IB 





One -half the number of B-integrals to be evalu- 
ated, equal to r(r+l)(r+2)/2 

111 

IC 



Many 

One-fourth the number of C-integrals to be evalu- 
ated, equal to r(r+l)/2 

112 

JA 



SETUP 

Number of representative A-integrals 

113 

JB 





Number of representative B-integrals 

114 

JC 



TRI, QUAD 

Number of representative C-integrals 

115 

NNE 



ELEMENT, LINSTF, 
LODVEC, MASS, 
STORE, PRINT 

Number of nodes per element 

116 

ISS 



SETUP, TRI, QUAD, 
LINSTF, STORE, 
PRINT 

Storage of the stiffness array SS begins at ISS + 1 

117 

ISO 



SETUP, 

STORE 

LINSTF, 

PRINT 

Storage of the geometric stiffness array SG begins 
in ISG + 1 

118 

IXC 



SETUP, TRI, QUAD, 
TRAPS, TRAP9, 
QUADS, QUAD81, 
QUAD82, QUAD9, 
LODVEC, MASS, 
STORE, PRINT 

Storage of the C-integrals XC and also of the dis- 
tributed load array SP begins in KC + 1 

119 

IXB 



SETUP, TRI, QUAD, 
XNNDN 

Storage of the B-integrals XB begins at IXB + 1 

120 

IXA 

L 


SETUP, TRI, QUAD, 
XNNNN 

Storage of the A-integrals XA begins at IXA + 1 


*The dimensions of the FORTRAN arrays are given in parentheses. 
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TABLE m.- 
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TABLE IV.- LISTING OF DYNAMICALLY ALLOCATED ARRAYS AND THEIR POSITIONS IN LABELED COMMON SPACE 


FORTRAN 

name 

Starting position 

Terminal position 

Routine where 
array is defined or used 

Description 

KA 

IXA + 1 

IXA + lA 



Superscript m which determines a 





> SETUP 


representative A-integral 

KB 

IXB + 1 

IXB + IB 



Superscript m which determines a 






representative B -integral 

KC 

IXC + 1 

IXC + IC 

Many 

Superscript m which determines a 






representative C -integral 

LA 

IXA + 1 - lA 

IXA 



Superscript n which determines a 





> SETUP 


group transformation 

LB 

IXB + I + IB 

IXB + 2»IB 

J 


Superscript n which determines a 






group transformation 

LC 

IXC + 1 + IC 

IXC + 2»IC 

Many 

Superscript n which determines a 






group transformation 

QAl 

IXA + I 

IXA + lA 

SETUP, TRI, QUAD 



QA2 

IXA + I - lA 

IXA 

1 

SETUP, QUAD 


> Coefficients “T5 in A-integrals 

QA3 

IXA + 1 - 2*IA 

IXA - lA 

J 

> 


QBl 

IXB + I + IB 

KB + 2»IB 

SETUP, TRI, QUAD 



QB2 

IXB + 1 

IXB + IB 

'I 

) SETUP, QUAD 


^Coefficients S in B-integrals 

QB3 

IXB + 1 - IB 

IXB 

J 

J 


QCl 

IXC + 1 + 3»IC 

KC + 4.IC 

•N 


•N 


QC2 

IXC + 1 + 2*IC 

KC + 3*IC 


) SETUP, TRI, QUAD 


> Coefficients 9" in C-integrals 

QC3 

IXC + I + IC 

KC + 2*IC 




QC4 

EXC + 1 

IXC + IC 





XA 

IXA + 1 

IXA + lA 

TRI, QUAD, XNNNN 

Evaluated A-integrals with 


, 




All 

All 

All 

XB 

. DCB + 1 

KB + 2«IB 

TRI, QUAD, XNNDN 

Evaluated B-integrals Bjj*^ with 

i = j 

Evaluated C-integrals CjJjj with 

XC 

IXC + 1 

KC + 4*IC 

Many 

ss 

ISS + 1 

ISS + 25*NSF*NSF 


Stiffness array 





!>LINSTF, STORE, PRINT 



SG 

ISG + 1 

ISG + NSF*NSF 

J 

Abbreviated geometric stiffness array 

SP 

IXC + 1 

IXC + 5*NNE 

LODVEC, STORE, PRINT 

Distributed load array 

SM 

IXC + I + 5*NNE 

IXC + 5»NNE 

MASS, STORE, PRINT 

Abbreviated distributed mass array 



+ NSF*NSF 




SMASS 

ISS + 1 

ISS + 25*NSF»NSF 

PRINT 

Full distributed mass array 
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TABLE V.- THE MORE IMPORTANT FORTRAN VARIABLES IN LABELED COMMON TEMP 
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TABLE VI.- FIELD LENGTHS AND AVERAGE CPU TIMES FOR 14 SAMPLE PROBLEMS 

System used FORTRAN Extended (Version 4) compiler under CONTROL DATA Network 
Operating System (NOS 1.0) running on CONTROL DATA CYBER 175 computer system 


Element 

designation 

(a) 

Element shape 

Required field 
lengths (octal) 
(b) 

Total CPU time 
for plate elements,^ 
msec 

Total CPU time 
for shell elements, 
msec 

SQ4 

Parallelogram 

41 412 

6 

11 


Trapezoid 

41 412 

9 

13 


Trapezium 

41 412 

10 

16 

SQ5 

Parallelogram 

42 232 

8 

16 


Trapezoid 

42 232 


20 


Trapezium 

42 232 

16 

23 

ST6 

Triangle 

41 743 

11 

30 

SQ8 

Parallelogram 

46 123 

17 

71 


Trapezoid 

46 123 

28 

80 


Trapezium 

46 521 

59 

111 

SQ9 

Parallelogram 

50 033 

20 

85 


Trapezoid 

50 033 

32 

99 


Trapezium 

50 431 

74 

137 

STIO 

Triangle 

50 732 

24 

138 


^Correspond to designations in reference 1. 
^After routine SETUP has been executed. 
^Include bending -extensional coupling. 


122 


















123 


Figure 1.- Logical organization of SYMINSE program. 
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Figure 2.- Subroutine linkages for SYMINSE program. The large boxes represent main programs 
of primary overlays. The small boxes represent subroutines. 


























No 



CALL SETUP to 

1. read integer-valued arrays from TAPEl 

2. store integration arrays on TAPE2 


) 


i 


CALL INTGRAL to 

1. read from TAPE2 the integration arrays 

for the present value of NSF 

2. evaluate A-, B-, and C-integrals 


CALL SGPM to 

evaluate the element characteristic 
arrays SS, SG, SP, and SM 


CALL STORE to 

store onto sequential disk files the 
characteristic arrays which have 
been computed 


^ 

LA^ 
j TRUE 

/ CALL PRINT to ' 

/ 1. form the array SMASS 

\ 2. print the element characteristic 

\ arrays SS, SG, SP, SM, and SMASS 

1 


1 


c 


RETURN 


) 


Figure 3.- Flow chart for ELEMENT, the top-level routine in SYMINSE program. 
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Figure 4,- Flow chart for routine INTGRAL, which governs evaluation 

of A-, B-, and C -integrals. 
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